flang/test/Semantics/OpenACC/acc-loop-validity.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenacc
   2
   3 program 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
  19 end