flang/test/Semantics/call16.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2
   3 ! Test that intrinsic functions used as subroutines and vice versa are caught.
   4
   5 subroutine test(x, t)
   6  intrinsic :: sin, cpu_time
   7  !ERROR: Cannot call function 'sin' like a subroutine
   8  call sin(x)
   9  !ERROR: Cannot call subroutine 'cpu_time' like a function
  10  x = cpu_time(t)
  11 end subroutine
  12
  13