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 36