blob: 43260c24336892f84762a5c8b8cf23f59d47ea6b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { 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
|