| ! RUN: %S/test_errors.sh %s %t %flang_fc1 | |
| ! REQUIRES: shell | |
| ! Test that intrinsic functions used as subroutines and vice versa are caught. | |
| subroutine test(x, t) | |
| intrinsic :: sin, cpu_time | |
| !ERROR: Cannot use intrinsic function 'sin' as a subroutine | |
| call sin(x) | |
| !ERROR: Cannot use intrinsic subroutine 'cpu_time' as a function | |
| x = cpu_time(t) | |
| end subroutine | |