| ! { dg-do run } | |
| ! PR17678 | |
| ! We were incorrectly setting use-associated variables to unallocated | |
| ! on procedure entry. | |
| module foo | |
| integer, dimension(:), allocatable :: bar | |
| end module | |
| program main | |
| use foo | |
| allocate (bar(10)) | |
| call init | |
| end program main | |
| subroutine init | |
| use foo | |
| if (.not.allocated(bar)) STOP 1 | |
| end subroutine init |