You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
341 B
14 lines
341 B
! RUN: %S/test_errors.sh %s %t %f18
|
|
|
|
! 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
|
|
|
|
|