! RUN: %python %S/../test_errors.py %s %flang -fopenacc | |
! Check parser specific error for OpenACC | |
subroutine test(a, n) | |
integer :: a(n) | |
!ERROR: expected OpenACC directive | |
!$acc p | |
integer :: i,j | |
i = 0 | |
!ERROR: expected OpenACC directive | |
!$acc p | |
end subroutine | |
subroutine test2(a, n) | |
integer :: a(n) | |
integer :: i | |
!$acc parallel | |
!$acc loop | |
DO i = 1, n | |
END DO | |
!$acc end parallel | |
!WARN: Misplaced OpenACC end directive | |
!$acc end loop | |
end subroutine |