1! RUN: %python %S/../test_errors.py %s %flang -fopenacc 2 3! Check parser specific error for OpenACC 4 5 6subroutine test(a, n) 7 integer :: a(n) 8 !ERROR: expected OpenACC directive 9 !$acc p 10 integer :: i,j 11 12 i = 0 13 !ERROR: expected OpenACC directive 14 !$acc p 15 end subroutine 16 17subroutine test2(a, n) 18 integer :: a(n) 19 integer :: i 20 21 !$acc parallel 22 !$acc loop 23 DO i = 1, n 24 END DO 25 !$acc end parallel 26 !WARN: Misplaced OpenACC end directive 27 !$acc end loop 28 29end subroutine 30