flang/test/Semantics/OpenMP/do01.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.7.1 Loop Construct
   4 ! The loop iteration variable may not appear in a firstprivate directive.
   5
   6 program omp_do
   7   integer i, j, k
   8
   9   !ERROR: DO iteration variable i is not allowed in FIRSTPRIVATE clause.
  10   !$omp do firstprivate(k,i)
  11   do i = 1, 10
  12     do j = 1, 10
  13       print *, "Hello"
  14     end do
  15   end do
  16   !$omp end do
  17
  18 end program omp_do