blob: 37e82b16682067320e5749837a6c85bfeb0b06ed [file] [log] [blame]
! RUN: %python %S/test_errors.py %s %flang_fc1
! 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