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