27 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -mmlir --enable-delayed-privatization-staging=true -o - %s | FileCheck %s2 3subroutine loop_in_nested_block4 implicit none5 integer :: i, j6 7 do concurrent (i=1:10) local(j)8 block9 do j=1,2010 end do11 end block12 end do13end subroutine14 15! CHECK-LABEL: func.func @_QPloop_in_nested_block() {16! CHECK: %[[OUTER_J_DECL:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "{{.*}}Ej"}17! CHECK: fir.do_concurrent {18! CHECK: fir.do_concurrent.loop {{.*}} local(@{{.*}} %[[OUTER_J_DECL]]#0 -> %[[LOCAL_J_ARG:.*]] : !fir.ref<i32>) {19! CHECK: %[[LOCAL_J_DECL:.*]]:2 = hlfir.declare %[[LOCAL_J_ARG]]20! CHECK: fir.do_loop {{.*}} iter_args(%[[NESTED_LOOP_ARG:.*]] = {{.*}}) {21! CHECK: fir.store %[[NESTED_LOOP_ARG]] to %[[LOCAL_J_DECL]]#022! CHECK: }23! CHECK: }24! CHECK: }25! CHECK: }26 27