1! This test checks lowering of the parallel master combined construct. 2 3! RUN: bbc -fopenmp -emit-hlfir %s -o - | FileCheck %s 4! RUN: %flang_fc1 -fopenmp -emit-hlfir %s -o - | FileCheck %s 5 6! CHECK-LABEL: func @_QPparallel_master 7subroutine parallel_master(x) 8 integer :: x 9 !CHECK: omp.parallel { 10 !CHECK: omp.master { 11 !$omp parallel master 12 x = 1 13 !$omp end parallel master 14 !CHECK: } 15 !CHECK: } 16end subroutine parallel_master 17