22 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s2 3subroutine depend4 type :: my_struct5 integer :: my_component(10)6 end type7 8 type(my_struct) :: my_var9 10 !$omp task depend(in:my_var%my_component)11 !$omp end task12end subroutine depend13 14! CHECK: %[[VAR_ALLOC:.*]] = fir.alloca !fir.type<{{.*}}my_struct{{.*}}> {bindc_name = "my_var", {{.*}}}15! CHECK: %[[VAR_DECL:.*]]:2 = hlfir.declare %[[VAR_ALLOC]]16 17! CHECK: %[[COMP_SELECTOR:.*]] = hlfir.designate %[[VAR_DECL]]#0{"my_component"}18 19! CHECK: omp.task depend(taskdependin -> %[[COMP_SELECTOR]] : {{.*}}) {20! CHECK: omp.terminator21! CHECK: }22