[Bug fortran/17678] USE statement incorrectly initializes allocatable array

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2004-09-28 16:01 -------
This bug doesn't affect host associated variables. E.g.
program main
  integer, dimension(:), allocatable :: bar
  allocate (bar(100))
  call init
contains
subroutine init
  if (.not.allocated(bar)) then
     print *, 'oops'
     call abort
  endif
end subroutine init
end program main

works as expected

-- 


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