| ! 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 |