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