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