! Program to test the DIM intrinsic | |
program intrinsic_dim | |
implicit none | |
integer i, j | |
real(kind=4) :: r, s | |
real(kind=8) :: p, q | |
i = 1 | |
j = 4 | |
if (dim (i, j) .ne. 0) call abort | |
if (dim (j, i) .ne. 3) call abort | |
r = 1.0 | |
s = 4.0 | |
if (dim (r, s) .ne. 0.0) call abort | |
if (dim (s, r) .ne. 3.0) call abort | |
p = 1.0 | |
q = 4.0 | |
if (dim (p, q) .ne. 0.0) call abort | |
if (dim (q, p) .ne. 3.0) call abort | |
end program |