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) call abort
11 allocate (a(3:8, 5:7))
14 if (size(a
) .ne
. 18) call abort
16 ! With two parameters, assigning to an array
18 if (any (j
.ne
. (/6, 6, 6, 6, 6/))) call abort
20 ! With a variable second parameter
23 if (i
.ne
. 3) call abort
29 real, dimension (1:, 1:) :: a
33 if ((size(a
, 1) .ne
. 6) .or
. (size(a
, i
) .ne
. 3)) call abort
34 if (size (a
) .ne
. 18 ) call abort