20 lines · plain
1! Test delayed privatization for derived types with allocatable components.2! RUN: %flang_fc1 -emit-hlfir -fopenmp -o - %s | FileCheck %s3 4subroutine firstprivate_alloc_comp5 type t16 integer, allocatable :: c(:)7 end type8 type(t1) :: x9 !$omp parallel firstprivate(x)10 print *, allocated(x%c)11 !$omp end parallel12end13 14 call firstprivate_alloc_comp()15end16! CHECK-LABEL: omp.private {type = firstprivate} @_QFfirstprivate_alloc_compEx_firstprivate_rec__QFfirstprivate_alloc_compTt1 : !fir.type<_QFfirstprivate_alloc_compTt1{c:!fir.box<!fir.heap<!fir.array<?xi32>>>}> init {17! CHECK: fir.call @_FortranAInitialize(18! CHECK: } copy {19! ...20