26 lines · plain
1!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s2 3!CHECK-LABEL: func @_QPomp_masked4subroutine omp_masked(threadId)5integer :: threadId6 7!CHECK: omp.masked {8!$omp masked9 10 !CHECK: fir.call @_QPmasked() {{.*}}: () -> ()11 call masked()12 13!CHECK: omp.terminator14!$omp end masked15 16!CHECK: omp.masked filter({{.*}}) {17!$omp masked filter(threadId)18 19 !CHECK: fir.call @_QPmaskedwithfilter() {{.*}}: () -> ()20 call maskedWithFilter()21 22!CHECK: omp.terminator23!$omp end masked24end subroutine omp_masked25 26