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