gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dim.f90

   1 ! Program to test the DIM intrinsic
   2 program intrinsic_dim
   3    implicit none
   4    integer i, j
   5    real(kind=4) :: r, s
   6    real(kind=8) :: p, q
   7
   8    i = 1
   9    j = 4
  10    if (dim (i, j) .ne. 0) call abort
  11    if (dim (j, i) .ne. 3) call abort
  12    r = 1.0
  13    s = 4.0
  14    if (dim (r, s) .ne. 0.0) call abort
  15    if (dim (s, r) .ne. 3.0) call abort
  16    p = 1.0
  17    q = 4.0
  18    if (dim (p, q) .ne. 0.0) call abort
  19    if (dim (q, p) .ne. 3.0) call abort
  20 end program