1! { dg-do compile } 2! { dg-options "-std=f95" } 3 4 integer :: i, j, k 5 integer(kind=8) :: i8, j8, k8 6 real :: x 7 double precision :: z 8 9 call system_clock(i, j, k) 10 call system_clock(i, j, k8) ! { dg-error "has non-default kind" } 11 call system_clock(i, j8, k) ! { dg-error "has non-default kind" } 12 call system_clock(i8, j, k) ! { dg-error "has non-default kind" } 13 14 call system_clock(i, x, k) ! { dg-error "Real COUNT_RATE argument" } 15 16 call system_clock(i, z, k) ! { dg-error "Real COUNT_RATE argument" } 17 18 end 19