24 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -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 7! A positive case8!DEF: /OMP_DO MainProgram9program OMP_DO10 !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, k14 !$omp do ordered15 !DEF: /OMP_DO/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)16 do i=1,1017 !$omp ordered18 !DEF: /my_func EXTERNAL (Subroutine) ProcEntity19 call my_func20 !$omp end ordered21 end do22 !$omp end do23end program OMP_DO24