1 ! Program to test the DIM intrinsic
10 if (dim (i
, j
) .ne
. 0) call abort
11 if (dim (j
, i
) .ne
. 3) call abort
14 if (dim (r
, s
) .ne
. 0.0) call abort
15 if (dim (s
, r
) .ne
. 3.0) call abort
18 if (dim (p
, q
) .ne
. 0.0) call abort
19 if (dim (q
, p
) .ne
. 3.0) call abort