30 lines
499 B
Fortran
30 lines
499 B
Fortran
|
! 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
|