flang/test/Semantics/call16.f90

   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
   6 subroutine 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)
  12 end subroutine
  13
  14