2 ! Test procedures with allocatable dummy arguments
6 integer, allocatable
:: a(:)
7 integer, allocatable
:: b(:)
10 if (.NOT
.allocated(a
)) STOP 1
11 if (.NOT
.all(a
== [ 1, 2, 3 ])) STOP 2
14 if (.NOT
.all(b
== [ 1, 2, 3 ])) STOP 3
16 if (.NOT
.all(whatever(a
) == [ 1, 2, 3 ])) STOP 4
19 if (allocated(a
)) STOP 5
22 if (allocated(b
)) STOP 6
27 integer, allocatable
, intent(out
) :: x(:)
32 subroutine useit(x
, y
)
33 integer, allocatable
, intent(in
) :: x(:)
34 integer, allocatable
, intent(out
) :: y(:)
35 if (allocated(y
)) STOP 7
41 integer, allocatable
:: x(:)
42 integer :: whatever(size(x
))
48 integer, allocatable
, intent(out
) :: x(:)
51 end program alloc_dummy