1! RUN: %python %S/../test_errors.py %s %flang -fopenacc
2
3program openacc_clause_validity
4
5 implicit none
6
7 integer :: i, n
8
9 i = 0
10
11 !ERROR: A DO loop must follow the LOOP directive
12 !$acc loop
13 i = 1
14
15 !$acc loop
16 do 100 i=0, n
17 100 continue
18
19end
20