1! { dg-do run } 2! PR64432 3program 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 22end program countem 23