OSDN Git Service

PR fortran/17678
[pf3gnuchains/gcc-fork.git] / 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