1! RUN: %S/test_errors.sh %s %t %flang_fc1 2! REQUIRES: shell 3 4! Test that intrinsic functions used as subroutines and vice versa are caught. 5 6subroutine test(x, t) 7 intrinsic :: sin, cpu_time 8 !ERROR: Cannot use intrinsic function 'sin' as a subroutine 9 call sin(x) 10 !ERROR: Cannot use intrinsic subroutine 'cpu_time' as a function 11 x = cpu_time(t) 12end subroutine 13 14 15