gcc/testsuite/gfortran.dg/system_clock_1.f90

   1 ! { dg-do run }
   2
   3   integer :: i, j, k
   4   integer(kind=8) :: i8, j8, k8
   5   real :: x
   6   double precision :: z
   7
   8   call system_clock(i, j, k)
   9   call system_clock(i, j, k8)
  10   call system_clock(i, j8, k)
  11   call system_clock(i, j8, k8)
  12   call system_clock(i8, j, k)
  13   call system_clock(i8, j, k8)
  14   call system_clock(i8, j8, k)
  15   call system_clock(i8, j8, k8)
  16
  17   call system_clock(i, x, k)
  18   call system_clock(i, x, k8)
  19   call system_clock(i, x, k)
  20   call system_clock(i, x, k8)
  21   call system_clock(i8, x, k)
  22   call system_clock(i8, x, k8)
  23   call system_clock(i8, x, k)
  24   call system_clock(i8, x, k8)
  25
  26   call system_clock(i, z, k)
  27   call system_clock(i, z, k8)
  28   call system_clock(i, z, k)
  29   call system_clock(i, z, k8)
  30   call system_clock(i8, z, k)
  31   call system_clock(i8, z, k8)
  32   call system_clock(i8, z, k)
  33   call system_clock(i8, z, k8)
  34
  35   end