| ! { dg-do run } |
| ! PR64432 |
| program countem |
| implicit none |
| integer(1) :: count1, irate1, mymax1 |
| integer(2) :: count2, irate2, mymax2 |
| integer(4) :: count4, irate4, mymax4 |
| real(4) :: rrate4 |
| |
| call system_clock(count=count1, count_rate=irate4, count_max=mymax4) |
| if (count1.ne.-127.or.irate4.ne.0.or.mymax4.ne.0) STOP 1 |
| call system_clock(count=count1, count_rate=rrate4, count_max=mymax1) |
| if (count1.ne.-127.or.rrate4.ne.0.0.or.mymax4.ne.0) STOP 2 |
| call system_clock(count=count2, count_rate=irate2, count_max=mymax2) |
| if (count2.ne.-32767.or.irate2.ne.0.or.mymax2.ne.0) STOP 3 |
| call system_clock(count=count2, count_rate=rrate4, count_max=mymax2) |
| if (count2.ne.-32767.or.rrate4.ne.0.0.or.mymax2.ne.0) STOP 4 |
| call system_clock(count=count4, count_rate=irate4, count_max=mymax4) |
| if (irate4.ne.1000.or.mymax4.ne.huge(0_4)) STOP 5 |
| call system_clock(count=count4, count_rate=rrate4, count_max=mymax4) |
| if (rrate4.ne.1000.0.or.mymax4.ne.huge(0_4)) STOP 6 |
| end program countem |