! { dg-do run } | |
program foo | |
implicit none | |
integer, allocatable :: x | |
integer, allocatable :: a(:) | |
logical a1, a2 | |
a1 = allocated(scalar=x) | |
if (a1 .neqv. .false.) stop 1 | |
a2 = allocated(array=a) | |
if (a2 .neqv. .false.) stop 2 | |
allocate(x) | |
allocate(a(2)) | |
a1 = allocated(scalar=x) | |
if (a1 .neqv. .true.) stop 3 | |
a2 = allocated(array=a) | |
if (a2 .neqv. .true.) stop 4 | |
end program foo |