PR ipa/83051
[official-gcc.git] / gcc / testsuite / gfortran.dg / system_clock_1.f90
blob41027deb28f6d0bc7be90228986df55ec5890e18
1 ! { dg-do run }
3 integer :: i, j, k
4 integer(kind=8) :: i8, j8, k8
5 real :: x
6 double precision :: z
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)
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)
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)
35 end