flang/test/Semantics/OpenMP/do06-positivecases.f90

   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
   9 program 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
  23 end program omp_do