30 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenacc2 3! Check parser specific error for OpenACC4 5 6subroutine test(a, n)7 integer :: a(n)8 !ERROR: expected OpenACC directive9 !$acc p10 integer :: i,j11 12 i = 013 !ERROR: expected OpenACC directive14 !$acc p15 end subroutine16 17subroutine test2(a, n)18 integer :: a(n)19 integer :: i20 21 !$acc parallel22 !$acc loop23 DO i = 1, n24 END DO25 !$acc end parallel26 !WARN: Misplaced OpenACC end directive27 !$acc end loop28 29end subroutine30