1 ! Program to test the SIZE intrinsics
4 real, dimension(:, :), allocatable
:: a
5 integer, dimension(5) :: j
6 integer, dimension(2, 3) :: b
9 if (size (b(2, :), 1) .ne
. 3) STOP 1
11 allocate (a(3:8, 5:7))
14 if (size(a
) .ne
. 18) STOP 2
16 ! With two parameters, assigning to an array
18 if (any (j
.ne
. (/6, 6, 6, 6, 6/))) STOP 3
20 ! With a variable second parameter
29 real, dimension (1:, 1:) :: a
33 if ((size(a
, 1) .ne
. 6) .or
. (size(a
, i
) .ne
. 3)) STOP 5
34 if (size (a
) .ne
. 18 ) STOP 6