2 ! { dg-options "-std=f2003" }
5 integer(kind
=8) :: i8
, j8
, k8
9 call system_clock(i
, j
, k
)
10 call system_clock(i
, j
, k8
)
11 call system_clock(i
, j8
, k
)
12 call system_clock(i
, j8
, k8
)
13 call system_clock(i8
, j
, k
)
14 call system_clock(i8
, j
, k8
)
15 call system_clock(i8
, j8
, k
)
16 call system_clock(i8
, j8
, k8
)
18 call system_clock(i
, x
, k
)
19 call system_clock(i
, x
, k8
)
20 call system_clock(i
, x
, k
)
21 call system_clock(i
, x
, k8
)
22 call system_clock(i8
, x
, k
)
23 call system_clock(i8
, x
, k8
)
24 call system_clock(i8
, x
, k
)
25 call system_clock(i8
, x
, k8
)
27 call system_clock(i
, z
, k
)
28 call system_clock(i
, z
, k8
)
29 call system_clock(i
, z
, k
)
30 call system_clock(i
, z
, k8
)
31 call system_clock(i8
, z
, k
)
32 call system_clock(i8
, z
, k8
)
33 call system_clock(i8
, z
, k
)
34 call system_clock(i8
, z
, k8
)