26 lines · plain
1! This test checks lowering of OpenMP ordered directive with threads Clause.2! Without clause in ordered direcitve, it behaves as if threads clause is3! specified.4 5!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s6 7subroutine ordered8 integer :: i9 integer :: a(20)10 11!CHECK: omp.ordered.region {12!$OMP ORDERED13 a(i) = a(i-1) + 114!CHECK: omp.terminator15!CHECK-NEXT: }16!$OMP END ORDERED17 18!CHECK: omp.ordered.region {19!$OMP ORDERED THREADS20 a(i) = a(i-1) + 121!CHECK: omp.terminator22!CHECK-NEXT: }23!$OMP END ORDERED24 25end26