gcc/testsuite/gfortran.dg/system_clock_3.f08

   1 ! { dg-do run }
   2 ! PR64432
   3 program countem
   4   implicit none
   5   integer(1)    :: count1, irate1, mymax1
   6   integer(2)    :: count2, irate2, mymax2
   7   integer(4)    :: count4, irate4, mymax4
   8   real(4)       :: rrate4
   9
  10   call system_clock(count=count1, count_rate=irate4, count_max=mymax4)
  11   if (count1.ne.-127.or.irate4.ne.0.or.mymax4.ne.0) call abort
  12   call system_clock(count=count1, count_rate=rrate4, count_max=mymax1)
  13   if (count1.ne.-127.or.rrate4.ne.0.0.or.mymax4.ne.0) call abort
  14   call system_clock(count=count2, count_rate=irate2, count_max=mymax2)
  15   if (count2.ne.-32767.or.irate2.ne.0.or.mymax2.ne.0) call abort
  16   call system_clock(count=count2, count_rate=rrate4, count_max=mymax2)
  17   if (count2.ne.-32767.or.rrate4.ne.0.0.or.mymax2.ne.0) call abort
  18   call system_clock(count=count4, count_rate=irate4, count_max=mymax4)
  19   if (irate4.ne.1000.or.mymax4.ne.huge(0_4)) call abort
  20   call system_clock(count=count4, count_rate=rrate4, count_max=mymax4)
  21   if (rrate4.ne.1000.0.or.mymax4.ne.huge(0_4)) call abort
  22 end program countem