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

   1 ! Program to test SELECTED_INT_KIND intrinsic function.
   2 Program test_si_kind
   3   integer*1 i1
   4   integer*2 i2
   5   integer*4 i4
   6   integer*8 i8
   7   integer res
   8   real t
   9
  10   t = huge (i1)
  11   t = log10 (t)
  12   res = selected_int_kind (int (t))
  13   if (res .ne. 1) STOP 1
  14
  15   t = huge (i2)
  16   t = log10 (t)
  17   res = selected_int_kind (int (t))
  18   if (res .ne. 2) STOP 2
  19
  20   t = huge (i4)
  21   t = log10 (t)
  22   res = selected_int_kind (int (t))
  23   if (res .ne. 4) STOP 3
  24
  25   t = huge (i8)
  26   t = log10 (t)
  27   res = selected_int_kind (int (t))
  28   if (res .ne. 8) STOP 4
  29
  30   i4 = huge (i4)
  31   res = selected_int_kind (i4)
  32   if (res .ne. (-1)) STOP 5
  33
  34 end program
  35