18 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenacc2 3! Check acc routine in the top level.4 5subroutine sub1(a, n)6 integer :: n7 real :: a(n)8end subroutine sub19 10!$acc routine(sub1)11 12!dir$ value=113program test14 integer, parameter :: N = 1015 real :: a(N)16 call sub1(a, N)17end program18