1! This test checks lowering of OpenMP ordered directive with threads Clause. 2! Without clause in ordered direcitve, it behaves as if threads clause is 3! specified. 4 5!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s 6 7subroutine ordered 8 integer :: i 9 integer :: a(20) 10 11!CHECK: omp.ordered.region { 12!$OMP ORDERED 13 a(i) = a(i-1) + 1 14!CHECK: omp.terminator 15!CHECK-NEXT: } 16!$OMP END ORDERED 17 18!CHECK: omp.ordered.region { 19!$OMP ORDERED THREADS 20 a(i) = a(i-1) + 1 21!CHECK: omp.terminator 22!CHECK-NEXT: } 23!$OMP END ORDERED 24 25end 26