1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp 2! OpenMP Version 4.5 3! 2.7.1 Loop Construct 4! The ordered clause must be present on the loop construct if any ordered 5! region ever binds to a loop region arising from the loop construct. 6 7! A positive case 8!DEF: /omp_do MainProgram 9program omp_do 10 !DEF: /omp_do/i ObjectEntity INTEGER(4) 11 !DEF: /omp_do/j ObjectEntity INTEGER(4) 12 !DEF: /omp_do/k ObjectEntity INTEGER(4) 13 integer i, j, k 14 !$omp do ordered 15 !DEF: /omp_do/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) 16 do i=1,10 17 !$omp ordered 18 !DEF: /my_func EXTERNAL (Subroutine) ProcEntity 19 call my_func 20 !$omp end ordered 21 end do 22 !$omp end do 23end program omp_do 24