17 lines · plain
1! This test checks lowering of the parallel master combined construct.2 3! RUN: bbc -fopenmp -emit-hlfir %s -o - | FileCheck %s4! RUN: %flang_fc1 -fopenmp -emit-hlfir %s -o - | FileCheck %s5 6! CHECK-LABEL: func @_QPparallel_master7subroutine parallel_master(x)8 integer :: x9 !CHECK: omp.parallel {10 !CHECK: omp.master {11 !$omp parallel master12 x = 113 !$omp end parallel master14 !CHECK: }15 !CHECK: }16end subroutine parallel_master17