flang/test/Semantics/OpenMP/doacross.f90

   1 !RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52
   2
   3 subroutine f00(x)
   4   integer :: x(10, 10)
   5   !$omp do ordered(2)
   6   do i = 1, 10
   7     do j = 1, 10
   8 !ERROR: Duplicate variable 'i' in the iteration vector
   9       !$omp ordered doacross(sink: i+1, i-2)
  10       x(i, j) = 0
  11     enddo
  12   enddo
  13   !$omp end do
  14 end
  15
  16 subroutine f01(x)
  17   integer :: x(10, 10)
  18   do i = 1, 10
  19     !$omp do ordered(1)
  20     do j = 1, 10
  21 !ERROR: The iteration vector element 'i' is not an induction variable within the ORDERED loop nest
  22       !$omp ordered doacross(sink: i+1)
  23       x(i, j) = 0
  24     enddo
  25     !$omp end do
  26   enddo
  27 end
  28