34 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.7.1 Loop Construct4! The ordered clause must be present on the loop construct if any ordered5! region ever binds to a loop region arising from the loop construct.6 7program omp_do8 integer i, j, k9 10 !$omp do11 do i = 1, 1012 !ERROR: An ORDERED directive without the DEPEND clause must be closely nested in a worksharing-loop (or worksharing-loop SIMD) region with ORDERED clause without the parameter13 !$omp ordered14 call my_func()15 !$omp end ordered16 end do17 !$omp end do18 19 !$omp do ordered private(i)20 do i = 1, 1021 !$omp parallel do22 do j = 1, 1023 print *,i24 !ERROR: An ORDERED directive without the DEPEND clause must be closely nested in a worksharing-loop (or worksharing-loop SIMD) region with ORDERED clause without the parameter25 !$omp ordered26 print *,i27 !$omp end ordered28 end do29 !$omp end parallel do30 end do31 !$omp end do32 33end program omp_do34