1*dc8d70acSjiajie zhang! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic 2*dc8d70acSjiajie zhang! Tests for the ETIME intrinsics 3*dc8d70acSjiajie zhang 4*dc8d70acSjiajie zhangsubroutine bad_kind_error(values, time) 5*dc8d70acSjiajie zhang REAL(KIND=8), DIMENSION(2) :: values 6*dc8d70acSjiajie zhang REAL(KIND=8) :: time 7*dc8d70acSjiajie zhang !ERROR: Actual argument for 'values=' has bad type or kind 'REAL(8)' 8*dc8d70acSjiajie zhang call etime(values, time) 9*dc8d70acSjiajie zhangend subroutine bad_kind_error 10*dc8d70acSjiajie zhang 11*dc8d70acSjiajie zhangsubroutine bad_args_error(values) 12*dc8d70acSjiajie zhang REAL(KIND=4), DIMENSION(2) :: values 13*dc8d70acSjiajie zhang !ERROR: missing mandatory 'time=' argument 14*dc8d70acSjiajie zhang call etime(values) 15*dc8d70acSjiajie zhangend subroutine bad_args_error 16*dc8d70acSjiajie zhang 17*dc8d70acSjiajie zhangsubroutine bad_apply_form(values) 18*dc8d70acSjiajie zhang REAL(KIND=4), DIMENSION(2) :: values 19*dc8d70acSjiajie zhang REAL(KIND=4) :: time 20*dc8d70acSjiajie zhang !Declaration of 'etime' 21*dc8d70acSjiajie zhang call etime(values, time) 22*dc8d70acSjiajie zhang !ERROR: Cannot call subroutine 'etime' like a function 23*dc8d70acSjiajie zhang time = etime(values) 24*dc8d70acSjiajie zhangend subroutine bad_apply_form 25*dc8d70acSjiajie zhang 26*dc8d70acSjiajie zhangsubroutine good_kind_equal(values, time) 27*dc8d70acSjiajie zhang REAL(KIND=4), DIMENSION(2) :: values 28*dc8d70acSjiajie zhang REAL(KIND=4) :: time 29*dc8d70acSjiajie zhang call etime(values, time) 30*dc8d70acSjiajie zhangend subroutine good_kind_equal