[Bug fortran/45337] intent(out) and pointer => null()

[linuxl4 at sohu dot com]

------- Comment #3 from linuxl4 at sohu dot com  2010-08-19 09:22 -------
module ptrmod
  implicit none
  type inde
     real :: x
  end type   

contains
subroutine lengthY(indexx)
   implicit none
   type(inde), pointer, intent(out) :: indexx(:)=>null()
end subroutine
end module

program main
  use ptrmod
  implicit none
  type(inde), pointer :: indexx(:)=>null()
  call lengthY(indexx)
end program


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45337