43 lines · plain
1 2!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s3 4!CHECK-LABEL: func @_QPsb15subroutine sb1(arr)6 integer :: arr(:)7!CHECK: omp.parallel {8 !$omp parallel9!CHECK: omp.workshare {10 !$omp workshare11 arr = 012 !$omp end workshare13!CHECK: }14 !$omp end parallel15!CHECK: }16end subroutine17 18!CHECK-LABEL: func @_QPsb219subroutine sb2(arr)20 integer :: arr(:)21!CHECK: omp.parallel {22 !$omp parallel23!CHECK: omp.workshare nowait {24 !$omp workshare25 arr = 026 !$omp end workshare nowait27!CHECK: }28 !$omp end parallel29!CHECK: }30end subroutine31 32!CHECK-LABEL: func @_QPsb333subroutine sb3(arr)34 integer :: arr(:)35!CHECK: omp.parallel {36!CHECK: omp.workshare {37 !$omp parallel workshare38 arr = 039 !$omp end parallel workshare40!CHECK: }41!CHECK: }42end subroutine43