29 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=522 3subroutine f00(x)4 integer :: x(10, 10)5 !$omp do ordered(2)6 do i = 1, 107 do j = 1, 108!ERROR: Duplicate variable 'i' in the iteration vector9 !$omp ordered doacross(sink: i+1, i-2)10 x(i, j) = 011 enddo12 enddo13 !$omp end do14end15 16subroutine f01(x)17 integer :: x(10, 10)18 do i = 1, 1019 !$omp do ordered(1)20 do j = 1, 1021!ERROR: The iteration vector element 'i' is not an induction variable within the ORDERED loop nest22 !$omp ordered doacross(sink: i+1)23 x(i, j) = 024 enddo25 !$omp end do26 enddo27end28 29