19 lines
257 B
Fortran
19 lines
257 B
Fortran
! RUN: %python %S/../test_errors.py %s %flang -fopenacc
|
|
|
|
program openacc_clause_validity
|
|
|
|
implicit none
|
|
|
|
integer :: i, n
|
|
|
|
i = 0
|
|
|
|
!ERROR: A DO loop must follow the LOOP directive
|
|
!$acc loop
|
|
i = 1
|
|
|
|
!$acc loop
|
|
do 100 i=0, n
|
|
100 continue
|
|
|
|
end
|