42 lines · plain
1! RUN: bbc -fopenacc -emit-hlfir %s -o - | FileCheck %s2 3subroutine sub1(x, a)4 real :: x(200)5 integer :: a6 7 !$acc loop8 do i = 100, 2009 x(i) = 1.010 if (i == a) return11 end do12 13 i = 214end15 16! CHECK-LABEL: func.func @_QPsub117! CHECK: %[[A:.*]]:2 = hlfir.declare %arg1 dummy_scope %{{[0-9]+}} arg {{[0-9]+}} {uniq_name = "_QFsub1Ea"} : (!fir.ref<i32>, !fir.dscope) -> (!fir.ref<i32>, !fir.ref<i32>)18! CHECK: %[[I:.*]]:2 = hlfir.declare %{{[0-9]+}} {uniq_name = "_QFsub1Ei"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)19! CHECK: %[[EXIT_COND:.*]] = acc.loop20! CHECK: %[[I:.*]]:2 = hlfir.declare %{{[0-9]+}} {uniq_name = "_QFsub1Ei"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)21! CHECK: ^bb{{.*}}:22! CHECK: ^bb{{.*}}:23! CHECK: %[[LOAD_I:.*]] = fir.load %[[I]]#0 : !fir.ref<i32>24! CHECK: %[[LOAD_I:.*]] = fir.load %[[I]]#0 : !fir.ref<i32>25! CHECK: %[[LOAD_A:.*]] = fir.load %[[A]]#0 : !fir.ref<i32>26! CHECK: %[[CMP:.*]] = arith.cmpi eq, %[[LOAD_I]], %[[LOAD_A]] : i3227! CHECK: cf.cond_br %[[CMP]], ^[[EARLY_RET:.*]], ^[[NO_RET:.*]]28! CHECK: ^[[EARLY_RET]]:29! CHECK: acc.yield %true : i130! CHECK: ^[[NO_RET]]:31! CHECK: cf.br ^bb{{.*}}32! CHECK: ^bb{{.*}}:33! CHECK: acc.yield %false : i134! CHECK: }(i1)35! CHECK: cf.cond_br %[[EXIT_COND]], ^[[EXIT_BLOCK:.*]], ^[[CONTINUE_BLOCK:.*]]36! CHECK: ^[[CONTINUE_BLOCK]]:37! CHECK: hlfir.assign38! CHECK: cf.br ^[[EXIT_BLOCK]]39! CHECK: ^[[EXIT_BLOCK]]:40! CHECK: return41! CHECK: }42