llvm/flang/test/Semantics/OpenACC/acc-routine-validity02.f90

! RUN: %python %S/../test_errors.py %s %flang -fopenacc

! Check acc routine in the top level.

subroutine sub1(a, n)
  integer :: n
  real :: a(n)
end subroutine sub1

!$acc routine(sub1)

!dir$ value=1
program test
  integer, parameter :: N = 10
  real :: a(N)
  call sub1(a, N)
end program