14 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12 3! Test that intrinsic functions used as subroutines and vice versa are caught.4 5subroutine test(x, t)6 intrinsic :: sin, cpu_time7 !ERROR: Cannot call function 'sin' like a subroutine8 call sin(x)9 !ERROR: Cannot call subroutine 'cpu_time' like a function10 x = cpu_time(t)11end subroutine12 13 14