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