13 lines
338 B
Fortran
13 lines
338 B
Fortran
! 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 call function 'sin' like a subroutine
|
|
call sin(x)
|
|
!ERROR: Cannot call subroutine 'cpu_time' like a function
|
|
x = cpu_time(t)
|
|
end subroutine
|
|
|
|
|