1! RUN: %S/test_symbols.sh %s %t %flang_fc1 -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! A positive case 9!DEF: /omp_do MainProgram 10program omp_do 11 !DEF: /omp_do/i ObjectEntity INTEGER(4) 12 !DEF: /omp_do/j ObjectEntity INTEGER(4) 13 !DEF: /omp_do/k ObjectEntity INTEGER(4) 14 integer i, j, k 15 !$omp do ordered 16 !DEF: /omp_do/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) 17 do i=1,10 18 !$omp ordered 19 !DEF: /my_func EXTERNAL (Subroutine) ProcEntity 20 call my_func 21 !$omp end ordered 22 end do 23 !$omp end do 24end program omp_do 25