45 lines · plain
1! Test delayed privatization for derived types with default initialization.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_default_init9 implicit none10 type t11 integer :: i = 212 end type13 integer :: i, res(4)14 type(t) :: a15 !$omp parallel private(a)16 call do_something(a%i)17 !$omp end parallel18end subroutine19 20subroutine delayed_privatization_default_init_firstprivate21 implicit none22 type t23 integer :: i = 224 end type25 integer :: i, res(4)26 type(t) :: a27 !$omp parallel firstprivate(a)28 call do_something(a%i)29 !$omp end parallel30end subroutine31 32! CHECK-LABEL: omp.private {type = firstprivate}33! CHECK-SAME: @_QFdelayed_privatization_default_init_firstprivateEa_firstprivate_rec__QFdelayed_privatization_default_init_firstprivateTt :34! CHECK-SAME: [[TYPE:!fir.type<_QFdelayed_privatization_default_init_firstprivateTt{i:i32}>]] copy {35 36! CHECK-LABEL: omp.private {type = private}37! CHECK-SAME: @_QFdelayed_privatization_default_initEa_private_rec__QFdelayed_privatization_default_initTt :38! CHECK-SAME: [[TYPE:!fir.type<_QFdelayed_privatization_default_initTt{i:i32}>]] init {39! CHECK: ^bb0(%[[VAL_0:.*]]: !fir.ref<[[TYPE]]>, %[[VAL_1:.*]]: !fir.ref<[[TYPE]]>):40! CHECK: %[[VAL_2:.*]] = fir.embox %[[VAL_1]] : (!fir.ref<!fir.type<_QFdelayed_privatization_default_initTt{i:i32}>>) -> !fir.box<!fir.type<_QFdelayed_privatization_default_initTt{i:i32}>>41! CHECK: %[[VAL_6:.*]] = fir.convert %[[VAL_2]] : (!fir.box<!fir.type<_QFdelayed_privatization_default_initTt{i:i32}>>) -> !fir.box<none>42! CHECK: fir.call @_FortranAInitialize(%[[VAL_6]],{{.*}}43! CHECK: omp.yield(%[[VAL_1]] : !fir.ref<!fir.type<_QFdelayed_privatization_default_initTt{i:i32}>>)44! CHECK: }45