flang/test/Semantics/omp-do06.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang -fopenmp
   2 ! REQUIRES: shell
   3 ! OpenMP Version 4.5
   4 ! 2.7.1 Loop Construct
   5 ! The ordered clause must be present on the loop construct if any ordered
   6 ! region ever binds to a loop region arising from the loop construct.
   7
   8 program omp_do
   9   integer i, j, k
  10
  11   !$omp do
  12   do i = 1, 10
  13     !ERROR: The ORDERED clause must be present on the loop construct if any ORDERED region ever binds to a loop region arising from the loop construct.
  14     !$omp ordered
  15     call my_func()
  16     !$omp end ordered
  17   end do
  18   !$omp end do
  19
  20   !$omp do ordered private(i)
  21   do i = 1, 10
  22     !$omp parallel do
  23     do j = 1, 10
  24       print *,i
  25       !ERROR: The ORDERED clause must be present on the loop construct if any ORDERED region ever binds to a loop region arising from the loop construct.
  26       !$omp ordered
  27       print *,i
  28       !$omp end ordered
  29     end do
  30     !$omp end parallel do
  31   end do
  32   !$omp end do
  33
  34 end program omp_do