23 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fopenmp -o - %s | FileCheck %s2! RUN: bbc -emit-hlfir -fopenmp -o - %s | FileCheck %s3 4! Check that we can lower this without crashing5 6! CHECK: func.func @_QPlastprivate_of_private7subroutine lastprivate_of_private(a)8 real :: a(100)9 integer i10 ! CHECK: omp.parallel private({{.*}}) {11 !$omp parallel private(a)12 ! CHECK: omp.parallel {13 !$omp parallel shared(a)14 ! CHECK: omp.wsloop private({{.*}}) {15 !$omp do lastprivate(a)16 ! CHECK: omp.loop_nest17 do i=1,10018 a(i) = 1.019 end do20 !$omp end parallel21 !$omp end parallel22end subroutine23