gcc/testsuite/gfortran.dg/use_allocated_1.f90

   1 ! { dg-do run }
   2 ! PR17678
   3 ! We were incorrectly setting use-associated variables to unallocated
   4 ! on procedure entry.
   5 module foo
   6   integer, dimension(:), allocatable :: bar
   7 end module
   8
   9 program main
  10   use foo
  11   allocate (bar(10))
  12   call init
  13 end program main
  14
  15 subroutine init
  16   use foo
  17   if (.not.allocated(bar)) call abort
  18 end subroutine init
  19
  20 ! { dg-final { cleanup-modules "foo" } }