37 lines · plain
1! Test delayed privatization for both `private` and `firstprivate` clauses.2 3! RUN: %flang_fc1 -emit-hlfir -fopenmp -mmlir --enable-delayed-privatization \4! RUN: -o - %s 2>&1 | FileCheck %s5! RUN: bbc -emit-hlfir -fopenmp --enable-delayed-privatization -o - %s 2>&1 \6! RUN: | FileCheck %s7 8subroutine delayed_privatization_private_firstprivate9 implicit none10 integer :: var111 integer :: var212 13!$omp parallel private(var1) firstprivate(var2)14 var1 = 1015 var2 = var1 + var216!$omp end parallel17end subroutine18 19! CHECK-LABEL: omp.private {type = firstprivate}20! CHECK-SAME: @[[VAR2_PRIVATIZER_SYM:.*]] : i32 copy {21! CHECK: }22 23! CHECK-LABEL: omp.private {type = private}24! CHECK-SAME: @[[VAR1_PRIVATIZER_SYM:.*]] : i3225 26! CHECK-LABEL: func.func @_QPdelayed_privatization_private_firstprivate() {27! CHECK: %[[VAR1_ALLOC:.*]] = fir.alloca i32 {bindc_name = "var1"28! CHECK: %[[VAR1_DECL:.*]]:2 = hlfir.declare %[[VAR1_ALLOC]]29 30! CHECK: %[[VAR2_ALLOC:.*]] = fir.alloca i32 {bindc_name = "var2"31! CHECK: %[[VAR2_DECL:.*]]:2 = hlfir.declare %[[VAR2_ALLOC]]32 33! CHECK: omp.parallel private(34! CHECK-SAME: @[[VAR1_PRIVATIZER_SYM]] %[[VAR1_DECL]]#0 -> %{{[^,]+}}, 35! CHECK-SAME: @[[VAR2_PRIVATIZER_SYM]] %[[VAR2_DECL]]#0 -> %{{.*}} :36! CHECK-SAME: !fir.ref<i32>, !fir.ref<i32>) {37