4 subroutine bad_kind_error(values, time)  argument
5   REAL(KIND=8), DIMENSION(2) :: values  local
7   !ERROR: Actual argument for 'values=' has bad type or kind 'REAL(8)'
8   call etime(values, time)
11 subroutine bad_args_error(values)  argument
12   REAL(KIND=4), DIMENSION(2) :: values  local
14   call etime(values)
17 subroutine bad_apply_form(values)  argument
18   REAL(KIND=4), DIMENSION(2) :: values  local
21   call etime(values, time)
23   time = etime(values)
26 subroutine good_kind_equal(values, time)  argument
27   REAL(KIND=4), DIMENSION(2) :: values  local
29   call etime(values, time)