1! { dg-do compile } 2! 3! PR fortran/52452 4! 5! Contributed by Roger Ferrer Ibanez 6! 7PROGRAM test_etime 8 IMPLICIT NONE 9 INTRINSIC :: etime 10 REAL(4) :: tarray(1:2) 11 REAL(4) :: result 12 13 CALL etime(tarray, result) 14END PROGRAM test_etime 15 16subroutine test_etime2 17 IMPLICIT NONE 18 INTRINSIC :: etime 19 REAL(4) :: tarray(1:2) 20 REAL(4) :: result 21 22 result = etime(tarray) 23END subroutine test_etime2 24