1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp 2! XFAIL:* 3 4! OpenMP Version 4.5 5! 2.7.1 Loop Construct 6! The ordered clause must be present on the loop construct if any ordered 7! region ever binds to a loop region arising from the loop construct. 8 9program omp_do 10 integer i, j, k 11 12 !$omp do 13 do i = 1, 10 14 !ERROR: ‘ordered’ region inside a loop region without an ordered clause. 15 !$omp ordered 16 call my_func() 17 !$omp end ordered 18 end do 19 !$omp end do 20 21end program omp_do 22