gomp-20050608-branch/gcc/testsuite/gfortran.fortran-torture/compile/convert.f90

   1 ! Program to test conversion.  Does not actualy test the generated code
   2 program convert
   3    implicit none
   4    integer(kind=4) i
   5    integer(kind=8) m
   6    real(kind=4) r
   7    real(kind=8) q
   8    complex(kind=4) c
   9    complex(kind=8) z
  10
  11    ! each of these should generate a single intrinsic conversion expression
  12    i = int(i)
  13    i = int(m)
  14    i = int(r)
  15    i = int(q)
  16    i = int(c)
  17    i = int(z)
  18    m = int(i, kind=8)
  19    m = int(m, kind=8)
  20    m = int(r, kind=8)
  21    m = int(q, kind=8)
  22    m = int(c, kind=8)
  23    m = int(z, kind=8)
  24    r = real(i)
  25    r = real(m)
  26    r = real(r)
  27    r = real(q)
  28    r = real(c)
  29    r = real(z, kind=4)
  30    q = real(i, kind=8)
  31    q = real(m, kind=8)
  32    q = real(r, kind=8)
  33    q = real(q, kind=8)
  34    q = real(c, kind=8)
  35    ! Note real(<complex>) returns the type kind of the argument.
  36    q = real(z)
  37 end program