313 lines · plain
1! Test lowering of array constructors as inlined temporary.2! RUN: bbc -emit-hlfir -o - %s | FileCheck %s3 4subroutine test_simple(i)5 call takes_int([42, i])6end subroutine7! CHECK-LABEL: func.func @_QPtest_simple(8! CHECK: %[[VAL_1:.*]]:2 = hlfir.declare {{.*}}Ei9! CHECK: %[[VAL_2:.*]] = arith.constant 2 : index10! CHECK: %[[VAL_3:.*]] = arith.constant 1 : index11! CHECK: %[[VAL_3B:.*]] = arith.constant 1 : index12! CHECK: %[[VAL_4:.*]] = fir.allocmem !fir.array<2xi32> {bindc_name = ".tmp.arrayctor", uniq_name = ""}13! CHECK: %[[VAL_5:.*]] = fir.shape %[[VAL_2]] : (index) -> !fir.shape<1>14! CHECK: %[[VAL_6:.*]]:2 = hlfir.declare %[[VAL_4]](%[[VAL_5]]) {uniq_name = ".tmp.arrayctor"} : (!fir.heap<!fir.array<2xi32>>, !fir.shape<1>) -> (!fir.heap<!fir.array<2xi32>>, !fir.heap<!fir.array<2xi32>>)15! CHECK: %[[VAL_7:.*]] = arith.constant 42 : i3216! CHECK: %[[VAL_8:.*]] = arith.addi %[[VAL_3]], %[[VAL_3B]] : index17! CHECK: %[[VAL_9:.*]] = hlfir.designate %[[VAL_6]]#0 (%[[VAL_3]]) : (!fir.heap<!fir.array<2xi32>>, index) -> !fir.ref<i32>18! CHECK: hlfir.assign %[[VAL_7]] to %[[VAL_9]] : i32, !fir.ref<i32>19! CHECK: %[[VAL_10:.*]] = fir.load %[[VAL_1]]#0 : !fir.ref<i32>20! CHECK: %[[VAL_11:.*]] = hlfir.designate %[[VAL_6]]#0 (%[[VAL_8]]) : (!fir.heap<!fir.array<2xi32>>, index) -> !fir.ref<i32>21! CHECK: hlfir.assign %[[VAL_10]] to %[[VAL_11]] : i32, !fir.ref<i32>22! CHECK: %[[VAL_12:.*]] = arith.constant true23! CHECK: %[[VAL_13:.*]] = hlfir.as_expr %[[VAL_6]]#0 move %[[VAL_12]] : (!fir.heap<!fir.array<2xi32>>, i1) -> !hlfir.expr<2xi32>24! CHECK: fir.call25! CHECK: hlfir.destroy %[[VAL_13]] : !hlfir.expr<2xi32>26 27subroutine test_simple_real(x)28 real(2) :: x29 call takes_real_2([x, 0._2])30end subroutine31! CHECK-LABEL: func.func @_QPtest_simple_real(32! CHECK: %[[VAL_1:.*]]:2 = hlfir.declare {{.*}}Ex33! CHECK: %[[VAL_2:.*]] = arith.constant 2 : index34! CHECK: %[[VAL_3:.*]] = arith.constant 1 : index35! CHECK: %[[VAL_3B:.*]] = arith.constant 1 : index36! CHECK: %[[VAL_4:.*]] = fir.allocmem !fir.array<2xf16> {bindc_name = ".tmp.arrayctor", uniq_name = ""}37! CHECK: %[[VAL_5:.*]] = fir.shape %[[VAL_2]] : (index) -> !fir.shape<1>38! CHECK: %[[VAL_6:.*]]:2 = hlfir.declare %[[VAL_4]](%[[VAL_5]]) {uniq_name = ".tmp.arrayctor"} : (!fir.heap<!fir.array<2xf16>>, !fir.shape<1>) -> (!fir.heap<!fir.array<2xf16>>, !fir.heap<!fir.array<2xf16>>)39! CHECK: %[[VAL_7:.*]] = fir.load %[[VAL_1]]#0 : !fir.ref<f16>40! CHECK: %[[VAL_8:.*]] = arith.addi %[[VAL_3]], %[[VAL_3B]] : index41! CHECK: %[[VAL_9:.*]] = hlfir.designate %[[VAL_6]]#0 (%[[VAL_3]]) : (!fir.heap<!fir.array<2xf16>>, index) -> !fir.ref<f16>42! CHECK: hlfir.assign %[[VAL_7]] to %[[VAL_9]] : f16, !fir.ref<f16>43! CHECK: %[[VAL_10:.*]] = arith.constant 0.000000e+00 : f1644! CHECK: %[[VAL_11:.*]] = hlfir.designate %[[VAL_6]]#0 (%[[VAL_8]]) : (!fir.heap<!fir.array<2xf16>>, index) -> !fir.ref<f16>45! CHECK: hlfir.assign %[[VAL_10]] to %[[VAL_11]] : f16, !fir.ref<f16>46! CHECK: %[[VAL_12:.*]] = arith.constant true47! CHECK: %[[VAL_13:.*]] = hlfir.as_expr %[[VAL_6]]#0 move %[[VAL_12]] : (!fir.heap<!fir.array<2xf16>>, i1) -> !hlfir.expr<2xf16>48! CHECK: fir.call49! CHECK: hlfir.destroy %[[VAL_13]] : !hlfir.expr<2xf16>50 51subroutine test_simple_complex(z)52 complex :: z53 call takes_cmplx_8([complex(8):: 42, z])54end subroutine55! CHECK-LABEL: func.func @_QPtest_simple_complex(56! CHECK: %[[VAL_1:.*]]:2 = hlfir.declare {{.*}}Ez57! CHECK: %[[VAL_2:.*]] = arith.constant 2 : index58! CHECK: %[[VAL_3:.*]] = arith.constant 1 : index59! CHECK: %[[VAL_3B:.*]] = arith.constant 1 : index60! CHECK: %[[VAL_4:.*]] = fir.allocmem !fir.array<2xcomplex<f64>> {bindc_name = ".tmp.arrayctor", uniq_name = ""}61! CHECK: %[[VAL_5:.*]] = fir.shape %[[VAL_2]] : (index) -> !fir.shape<1>62! CHECK: %[[VAL_6:.*]]:2 = hlfir.declare %[[VAL_4]](%[[VAL_5]]) {uniq_name = ".tmp.arrayctor"} : (!fir.heap<!fir.array<2xcomplex<f64>>>, !fir.shape<1>) -> (!fir.heap<!fir.array<2xcomplex<f64>>>, !fir.heap<!fir.array<2xcomplex<f64>>>)63! CHECK: %[[VAL_7:.*]] = arith.constant 42 : i3264! CHECK: %[[VAL_8:.*]] = fir.convert %[[VAL_7]] : (i32) -> f6465! CHECK: %[[VAL_9:.*]] = arith.constant 0.000000e+00 : f6466! CHECK: %[[VAL_10:.*]] = fir.undefined complex<f64>67! CHECK: %[[VAL_11:.*]] = fir.insert_value %[[VAL_10]], %[[VAL_8]], [0 : index] : (complex<f64>, f64) -> complex<f64>68! CHECK: %[[VAL_12:.*]] = fir.insert_value %[[VAL_11]], %[[VAL_9]], [1 : index] : (complex<f64>, f64) -> complex<f64>69! CHECK: %[[VAL_13:.*]] = arith.addi %[[VAL_3]], %[[VAL_3B]] : index70! CHECK: %[[VAL_14:.*]] = hlfir.designate %[[VAL_6]]#0 (%[[VAL_3]]) : (!fir.heap<!fir.array<2xcomplex<f64>>>, index) -> !fir.ref<complex<f64>>71! CHECK: hlfir.assign %[[VAL_12]] to %[[VAL_14]] : complex<f64>, !fir.ref<complex<f64>>72! CHECK: %[[VAL_15:.*]] = fir.load %[[VAL_1]]#0 : !fir.ref<complex<f32>>73! CHECK: %[[VAL_16:.*]] = fir.convert %[[VAL_15]] : (complex<f32>) -> complex<f64>74! CHECK: %[[VAL_17:.*]] = hlfir.designate %[[VAL_6]]#0 (%[[VAL_13]]) : (!fir.heap<!fir.array<2xcomplex<f64>>>, index) -> !fir.ref<complex<f64>>75! CHECK: hlfir.assign %[[VAL_16]] to %[[VAL_17]] : complex<f64>, !fir.ref<complex<f64>>76! CHECK: %[[VAL_18:.*]] = arith.constant true77! CHECK: %[[VAL_19:.*]] = hlfir.as_expr %[[VAL_6]]#0 move %[[VAL_18]] : (!fir.heap<!fir.array<2xcomplex<f64>>>, i1) -> !hlfir.expr<2xcomplex<f64>>78! CHECK: fir.call79! CHECK: hlfir.destroy %[[VAL_19]] : !hlfir.expr<2xcomplex<f64>>80 81subroutine test_simple_logical(a, b)82 logical :: a, b83 call takes_logical([a, a.and.b])84end subroutine85! CHECK-LABEL: func.func @_QPtest_simple_logical(86! CHECK: %[[VAL_2:.*]]:2 = hlfir.declare {{.*}}Ea87! CHECK: %[[VAL_3:.*]]:2 = hlfir.declare {{.*}}Eb88! CHECK: %[[VAL_4:.*]] = arith.constant 2 : index89! CHECK: %[[VAL_5:.*]] = arith.constant 1 : index90! CHECK: %[[VAL_5B:.*]] = arith.constant 1 : index91! CHECK: %[[VAL_6:.*]] = fir.allocmem !fir.array<2x!fir.logical<4>> {bindc_name = ".tmp.arrayctor", uniq_name = ""}92! CHECK: %[[VAL_7:.*]] = fir.shape %[[VAL_4]] : (index) -> !fir.shape<1>93! CHECK: %[[VAL_8:.*]]:2 = hlfir.declare %[[VAL_6]](%[[VAL_7]]) {uniq_name = ".tmp.arrayctor"} : (!fir.heap<!fir.array<2x!fir.logical<4>>>, !fir.shape<1>) -> (!fir.heap<!fir.array<2x!fir.logical<4>>>, !fir.heap<!fir.array<2x!fir.logical<4>>>)94! CHECK: %[[VAL_9:.*]] = fir.load %[[VAL_2]]#0 : !fir.ref<!fir.logical<4>>95! CHECK: %[[VAL_10:.*]] = arith.addi %[[VAL_5]], %[[VAL_5B]] : index96! CHECK: %[[VAL_11:.*]] = hlfir.designate %[[VAL_8]]#0 (%[[VAL_5]]) : (!fir.heap<!fir.array<2x!fir.logical<4>>>, index) -> !fir.ref<!fir.logical<4>>97! CHECK: hlfir.assign %[[VAL_9]] to %[[VAL_11]] : !fir.logical<4>, !fir.ref<!fir.logical<4>>98! CHECK: %[[VAL_12:.*]] = fir.load %[[VAL_2]]#0 : !fir.ref<!fir.logical<4>>99! CHECK: %[[VAL_13:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<!fir.logical<4>>100! CHECK: %[[VAL_14:.*]] = fir.convert %[[VAL_12]] : (!fir.logical<4>) -> i1101! CHECK: %[[VAL_15:.*]] = fir.convert %[[VAL_13]] : (!fir.logical<4>) -> i1102! CHECK: %[[VAL_16:.*]] = arith.andi %[[VAL_14]], %[[VAL_15]] : i1103! CHECK: %[[VAL_17:.*]] = hlfir.designate %[[VAL_8]]#0 (%[[VAL_10]]) : (!fir.heap<!fir.array<2x!fir.logical<4>>>, index) -> !fir.ref<!fir.logical<4>>104! CHECK: hlfir.assign %[[VAL_16]] to %[[VAL_17]] : i1, !fir.ref<!fir.logical<4>>105! CHECK: %[[VAL_18:.*]] = arith.constant true106! CHECK: %[[VAL_19:.*]] = hlfir.as_expr %[[VAL_8]]#0 move %[[VAL_18]] : (!fir.heap<!fir.array<2x!fir.logical<4>>>, i1) -> !hlfir.expr<2x!fir.logical<4>>107! CHECK: fir.call108! CHECK: hlfir.destroy %[[VAL_19]] : !hlfir.expr<2x!fir.logical<4>>109 110subroutine test_implied_do(n)111 integer(8) :: n112 ! This implied do cannot easily be promoted to hlfir.elemental because113 ! the implied do contains more than one scalar ac-value.114 call takes_int([(42, j, j=1,n)])115end subroutine116! CHECK-LABEL: func.func @_QPtest_implied_do(117! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) {118! CHECK: %[[VAL_1:.*]] = fir.alloca index119! CHECK: %[[VAL_2:.*]]:2 = hlfir.declare %[[VAL_0]] dummy_scope %{{[0-9]+}} arg {{[0-9]+}} {uniq_name = "_QFtest_implied_doEn"} : (!fir.ref<i64>, !fir.dscope) -> (!fir.ref<i64>, !fir.ref<i64>)120! CHECK: %[[VAL_3:.*]] = arith.constant 0 : i64121! CHECK: %[[VAL_4:.*]] = arith.constant 2 : i64122! CHECK: %[[VAL_5:.*]] = fir.load %[[VAL_2]]#0 : !fir.ref<i64>123! CHECK: %[[VAL_6:.*]] = arith.constant 1 : i64124! CHECK: %[[VAL_7:.*]] = arith.subi %[[VAL_5]], %[[VAL_6]] : i64125! CHECK: %[[VAL_8:.*]] = arith.constant 1 : i64126! CHECK: %[[VAL_9:.*]] = arith.addi %[[VAL_7]], %[[VAL_8]] : i64127! CHECK: %[[VAL_10:.*]] = arith.constant 1 : i64128! CHECK: %[[VAL_11:.*]] = arith.divsi %[[VAL_9]], %[[VAL_10]] : i64129! CHECK: %[[VAL_12:.*]] = arith.constant 0 : i64130! CHECK: %[[VAL_13:.*]] = arith.cmpi sgt, %[[VAL_11]], %[[VAL_12]] : i64131! CHECK: %[[VAL_14:.*]] = arith.select %[[VAL_13]], %[[VAL_11]], %[[VAL_12]] : i64132! CHECK: %[[VAL_15:.*]] = arith.muli %[[VAL_4]], %[[VAL_14]] : i64133! CHECK: %[[VAL_16:.*]] = arith.addi %[[VAL_3]], %[[VAL_15]] : i64134! CHECK: %[[VAL_17:.*]] = fir.convert %[[VAL_16]] : (i64) -> index135! CHECK: %[[VAL_18:.*]] = arith.constant 1 : index136! CHECK: %[[VAL_18B:.*]] = arith.constant 1 : index137! CHECK: fir.store %[[VAL_18]] to %[[VAL_1]] : !fir.ref<index>138! CHECK: %[[VAL_19:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_17]] {bindc_name = ".tmp.arrayctor", uniq_name = ""}139! CHECK: %[[VAL_20:.*]] = fir.shape %[[VAL_17]] : (index) -> !fir.shape<1>140! CHECK: %[[VAL_21:.*]]:2 = hlfir.declare %[[VAL_19]](%[[VAL_20]]) {uniq_name = ".tmp.arrayctor"} : (!fir.heap<!fir.array<?xi32>>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.heap<!fir.array<?xi32>>)141! CHECK: %[[VAL_22:.*]] = arith.constant 1 : i64142! CHECK: %[[VAL_23:.*]] = fir.convert %[[VAL_22]] : (i64) -> index143! CHECK: %[[VAL_24:.*]] = fir.load %[[VAL_2]]#0 : !fir.ref<i64>144! CHECK: %[[VAL_25:.*]] = fir.convert %[[VAL_24]] : (i64) -> index145! CHECK: %[[VAL_26:.*]] = arith.constant 1 : i64146! CHECK: %[[VAL_27:.*]] = fir.convert %[[VAL_26]] : (i64) -> index147! CHECK: fir.do_loop %[[VAL_28:.*]] = %[[VAL_23]] to %[[VAL_25]] step %[[VAL_27]] {148! CHECK: %[[VAL_29:.*]] = arith.constant 42 : i32149! CHECK: %[[VAL_30:.*]] = fir.load %[[VAL_1]] : !fir.ref<index>150! CHECK: %[[VAL_31:.*]] = arith.addi %[[VAL_30]], %[[VAL_18B]] : index151! CHECK: fir.store %[[VAL_31]] to %[[VAL_1]] : !fir.ref<index>152! CHECK: %[[VAL_32:.*]] = hlfir.designate %[[VAL_21]]#0 (%[[VAL_30]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32>153! CHECK: hlfir.assign %[[VAL_29]] to %[[VAL_32]] : i32, !fir.ref<i32>154! CHECK: %[[VAL_33:.*]] = fir.convert %[[VAL_28]] : (index) -> i64155! CHECK: %[[VAL_34:.*]] = fir.convert %[[VAL_33]] : (i64) -> i32156! CHECK: %[[VAL_35:.*]] = fir.load %[[VAL_1]] : !fir.ref<index>157! CHECK: %[[VAL_36:.*]] = arith.addi %[[VAL_35]], %[[VAL_18B]] : index158! CHECK: fir.store %[[VAL_36]] to %[[VAL_1]] : !fir.ref<index>159! CHECK: %[[VAL_37:.*]] = hlfir.designate %[[VAL_21]]#0 (%[[VAL_35]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32>160! CHECK: hlfir.assign %[[VAL_34]] to %[[VAL_37]] : i32, !fir.ref<i32>161! CHECK: }162! CHECK: %[[VAL_38:.*]] = arith.constant true163! CHECK: %[[VAL_39:.*]] = hlfir.as_expr %[[VAL_21]]#0 move %[[VAL_38]] : (!fir.box<!fir.array<?xi32>>, i1) -> !hlfir.expr<?xi32>164! CHECK: %[[VAL_40:.*]]:3 = hlfir.associate %[[VAL_39]](%[[VAL_20]]) {adapt.valuebyref} : (!hlfir.expr<?xi32>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1)165! CHECK: %[[VAL_41:.*]] = fir.convert %[[VAL_40]]#1 : (!fir.ref<!fir.array<?xi32>>) -> !fir.ref<!fir.array<2xi32>>166! CHECK: fir.call @_QPtakes_int(%[[VAL_41]]) fastmath<contract> : (!fir.ref<!fir.array<2xi32>>) -> ()167! CHECK: hlfir.end_associate %[[VAL_40]]#1, %[[VAL_40]]#2 : !fir.ref<!fir.array<?xi32>>, i1168! CHECK: hlfir.destroy %[[VAL_39]] : !hlfir.expr<?xi32>169! CHECK: return170! CHECK: }171 172subroutine test_strided_implied_do(lb, ub, stride)173 integer(8) :: lb, ub, stride174 call takes_int([(42, j, j=lb,ub,stride)])175end subroutine176! CHECK-LABEL: func.func @_QPtest_strided_implied_do(177! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i64> {fir.bindc_name = "lb"},178! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<i64> {fir.bindc_name = "ub"},179! CHECK-SAME: %[[VAL_2:.*]]: !fir.ref<i64> {fir.bindc_name = "stride"}) {180! CHECK: %[[VAL_3:.*]] = fir.alloca index181! CHECK: %[[VAL_4:.*]]:2 = hlfir.declare %[[VAL_0]] dummy_scope %{{[0-9]+}} arg {{[0-9]+}} {uniq_name = "_QFtest_strided_implied_doElb"} : (!fir.ref<i64>, !fir.dscope) -> (!fir.ref<i64>, !fir.ref<i64>)182! CHECK: %[[VAL_5:.*]]:2 = hlfir.declare %[[VAL_2]] dummy_scope %{{[0-9]+}} arg {{[0-9]+}} {uniq_name = "_QFtest_strided_implied_doEstride"} : (!fir.ref<i64>, !fir.dscope) -> (!fir.ref<i64>, !fir.ref<i64>)183! CHECK: %[[VAL_6:.*]]:2 = hlfir.declare %[[VAL_1]] dummy_scope %{{[0-9]+}} arg {{[0-9]+}} {uniq_name = "_QFtest_strided_implied_doEub"} : (!fir.ref<i64>, !fir.dscope) -> (!fir.ref<i64>, !fir.ref<i64>)184! CHECK: %[[VAL_7:.*]] = arith.constant 0 : i64185! CHECK: %[[VAL_8:.*]] = arith.constant 2 : i64186! CHECK: %[[VAL_9:.*]] = fir.load %[[VAL_6]]#0 : !fir.ref<i64>187! CHECK: %[[VAL_10:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64>188! CHECK: %[[VAL_11:.*]] = arith.subi %[[VAL_9]], %[[VAL_10]] : i64189! CHECK: %[[VAL_12:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i64>190! CHECK: %[[VAL_13:.*]] = arith.addi %[[VAL_11]], %[[VAL_12]] : i64191! CHECK: %[[VAL_14:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i64>192! CHECK: %[[VAL_15:.*]] = arith.divsi %[[VAL_13]], %[[VAL_14]] : i64193! CHECK: %[[VAL_16:.*]] = arith.constant 0 : i64194! CHECK: %[[VAL_17:.*]] = arith.cmpi sgt, %[[VAL_15]], %[[VAL_16]] : i64195! CHECK: %[[VAL_18:.*]] = arith.select %[[VAL_17]], %[[VAL_15]], %[[VAL_16]] : i64196! CHECK: %[[VAL_19:.*]] = arith.muli %[[VAL_8]], %[[VAL_18]] : i64197! CHECK: %[[VAL_20:.*]] = arith.addi %[[VAL_7]], %[[VAL_19]] : i64198! CHECK: %[[VAL_21:.*]] = fir.convert %[[VAL_20]] : (i64) -> index199! CHECK: %[[VAL_22:.*]] = arith.constant 1 : index200! CHECK: %[[VAL_22B:.*]] = arith.constant 1 : index201! CHECK: fir.store %[[VAL_22]] to %[[VAL_3]] : !fir.ref<index>202! CHECK: %[[VAL_23:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_21]] {bindc_name = ".tmp.arrayctor", uniq_name = ""}203! CHECK: %[[VAL_24:.*]] = fir.shape %[[VAL_21]] : (index) -> !fir.shape<1>204! CHECK: %[[VAL_25:.*]]:2 = hlfir.declare %[[VAL_23]](%[[VAL_24]]) {uniq_name = ".tmp.arrayctor"} : (!fir.heap<!fir.array<?xi32>>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.heap<!fir.array<?xi32>>)205! CHECK: %[[VAL_26:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64>206! CHECK: %[[VAL_27:.*]] = fir.convert %[[VAL_26]] : (i64) -> index207! CHECK: %[[VAL_28:.*]] = fir.load %[[VAL_6]]#0 : !fir.ref<i64>208! CHECK: %[[VAL_29:.*]] = fir.convert %[[VAL_28]] : (i64) -> index209! CHECK: %[[VAL_30:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i64>210! CHECK: %[[VAL_31:.*]] = fir.convert %[[VAL_30]] : (i64) -> index211! CHECK: fir.do_loop %[[VAL_32:.*]] = %[[VAL_27]] to %[[VAL_29]] step %[[VAL_31]] {212! CHECK: %[[VAL_33:.*]] = arith.constant 42 : i32213! CHECK: %[[VAL_34:.*]] = fir.load %[[VAL_3]] : !fir.ref<index>214! CHECK: %[[VAL_35:.*]] = arith.addi %[[VAL_34]], %[[VAL_22B]] : index215! CHECK: fir.store %[[VAL_35]] to %[[VAL_3]] : !fir.ref<index>216! CHECK: %[[VAL_36:.*]] = hlfir.designate %[[VAL_25]]#0 (%[[VAL_34]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32>217! CHECK: hlfir.assign %[[VAL_33]] to %[[VAL_36]] : i32, !fir.ref<i32>218! CHECK: %[[VAL_37:.*]] = fir.convert %[[VAL_32]] : (index) -> i64219! CHECK: %[[VAL_38:.*]] = fir.convert %[[VAL_37]] : (i64) -> i32220! CHECK: %[[VAL_39:.*]] = fir.load %[[VAL_3]] : !fir.ref<index>221! CHECK: %[[VAL_40:.*]] = arith.addi %[[VAL_39]], %[[VAL_22B]] : index222! CHECK: fir.store %[[VAL_40]] to %[[VAL_3]] : !fir.ref<index>223! CHECK: %[[VAL_41:.*]] = hlfir.designate %[[VAL_25]]#0 (%[[VAL_39]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32>224! CHECK: hlfir.assign %[[VAL_38]] to %[[VAL_41]] : i32, !fir.ref<i32>225! CHECK: }226! CHECK: %[[VAL_42:.*]] = arith.constant true227! CHECK: %[[VAL_43:.*]] = hlfir.as_expr %[[VAL_25]]#0 move %[[VAL_42]] : (!fir.box<!fir.array<?xi32>>, i1) -> !hlfir.expr<?xi32>228! CHECK: %[[VAL_44:.*]]:3 = hlfir.associate %[[VAL_43]](%[[VAL_24]]) {adapt.valuebyref} : (!hlfir.expr<?xi32>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1)229! CHECK: %[[VAL_45:.*]] = fir.convert %[[VAL_44]]#1 : (!fir.ref<!fir.array<?xi32>>) -> !fir.ref<!fir.array<2xi32>>230! CHECK: fir.call @_QPtakes_int(%[[VAL_45]]) fastmath<contract> : (!fir.ref<!fir.array<2xi32>>) -> ()231! CHECK: hlfir.end_associate %[[VAL_44]]#1, %[[VAL_44]]#2 : !fir.ref<!fir.array<?xi32>>, i1232! CHECK: hlfir.destroy %[[VAL_43]] : !hlfir.expr<?xi32>233! CHECK: return234! CHECK: }235 236subroutine test_nested_implied_do(n, m)237 integer(8) :: n, m238 call takes_int([((i+j, i=1,m), j=1,n)])239end subroutine240! CHECK-LABEL: func.func @_QPtest_nested_implied_do(241! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i64> {fir.bindc_name = "n"},242! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<i64> {fir.bindc_name = "m"}) {243! CHECK: %[[VAL_2:.*]] = fir.alloca index244! CHECK: %[[VAL_3:.*]]:2 = hlfir.declare %[[VAL_1]] dummy_scope %{{[0-9]+}} arg {{[0-9]+}} {uniq_name = "_QFtest_nested_implied_doEm"} : (!fir.ref<i64>, !fir.dscope) -> (!fir.ref<i64>, !fir.ref<i64>)245! CHECK: %[[VAL_4:.*]]:2 = hlfir.declare %[[VAL_0]] dummy_scope %{{[0-9]+}} arg {{[0-9]+}} {uniq_name = "_QFtest_nested_implied_doEn"} : (!fir.ref<i64>, !fir.dscope) -> (!fir.ref<i64>, !fir.ref<i64>)246! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64247! CHECK: %[[VAL_6:.*]] = arith.constant 0 : i64248! CHECK: %[[VAL_7:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<i64>249! CHECK: %[[VAL_8:.*]] = arith.constant 1 : i64250! CHECK: %[[VAL_9:.*]] = arith.subi %[[VAL_7]], %[[VAL_8]] : i64251! CHECK: %[[VAL_10:.*]] = arith.constant 1 : i64252! CHECK: %[[VAL_11:.*]] = arith.addi %[[VAL_9]], %[[VAL_10]] : i64253! CHECK: %[[VAL_12:.*]] = arith.constant 1 : i64254! CHECK: %[[VAL_13:.*]] = arith.divsi %[[VAL_11]], %[[VAL_12]] : i64255! CHECK: %[[VAL_14:.*]] = arith.constant 0 : i64256! CHECK: %[[VAL_15:.*]] = arith.cmpi sgt, %[[VAL_13]], %[[VAL_14]] : i64257! CHECK: %[[VAL_16:.*]] = arith.select %[[VAL_15]], %[[VAL_13]], %[[VAL_14]] : i64258! CHECK: %[[VAL_17:.*]] = arith.addi %[[VAL_6]], %[[VAL_16]] : i64259! CHECK: %[[VAL_18:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64>260! CHECK: %[[VAL_19:.*]] = arith.constant 1 : i64261! CHECK: %[[VAL_20:.*]] = arith.subi %[[VAL_18]], %[[VAL_19]] : i64262! CHECK: %[[VAL_21:.*]] = arith.constant 1 : i64263! CHECK: %[[VAL_22:.*]] = arith.addi %[[VAL_20]], %[[VAL_21]] : i64264! CHECK: %[[VAL_23:.*]] = arith.constant 1 : i64265! CHECK: %[[VAL_24:.*]] = arith.divsi %[[VAL_22]], %[[VAL_23]] : i64266! CHECK: %[[VAL_25:.*]] = arith.constant 0 : i64267! CHECK: %[[VAL_26:.*]] = arith.cmpi sgt, %[[VAL_24]], %[[VAL_25]] : i64268! CHECK: %[[VAL_27:.*]] = arith.select %[[VAL_26]], %[[VAL_24]], %[[VAL_25]] : i64269! CHECK: %[[VAL_28:.*]] = arith.muli %[[VAL_17]], %[[VAL_27]] : i64270! CHECK: %[[VAL_29:.*]] = arith.addi %[[VAL_5]], %[[VAL_28]] : i64271! CHECK: %[[VAL_30:.*]] = fir.convert %[[VAL_29]] : (i64) -> index272! CHECK: %[[VAL_31:.*]] = arith.constant 1 : index273! CHECK: %[[VAL_31B:.*]] = arith.constant 1 : index274! CHECK: fir.store %[[VAL_31]] to %[[VAL_2]] : !fir.ref<index>275! CHECK: %[[VAL_32:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_30]] {bindc_name = ".tmp.arrayctor", uniq_name = ""}276! CHECK: %[[VAL_33:.*]] = fir.shape %[[VAL_30]] : (index) -> !fir.shape<1>277! CHECK: %[[VAL_34:.*]]:2 = hlfir.declare %[[VAL_32]](%[[VAL_33]]) {uniq_name = ".tmp.arrayctor"} : (!fir.heap<!fir.array<?xi32>>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.heap<!fir.array<?xi32>>)278! CHECK: %[[VAL_35:.*]] = arith.constant 1 : i64279! CHECK: %[[VAL_36:.*]] = fir.convert %[[VAL_35]] : (i64) -> index280! CHECK: %[[VAL_37:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64>281! CHECK: %[[VAL_38:.*]] = fir.convert %[[VAL_37]] : (i64) -> index282! CHECK: %[[VAL_39:.*]] = arith.constant 1 : i64283! CHECK: %[[VAL_40:.*]] = fir.convert %[[VAL_39]] : (i64) -> index284! CHECK: fir.do_loop %[[VAL_41:.*]] = %[[VAL_36]] to %[[VAL_38]] step %[[VAL_40]] {285! CHECK: %[[VAL_42:.*]] = arith.constant 1 : i64286! CHECK: %[[VAL_43:.*]] = fir.convert %[[VAL_42]] : (i64) -> index287! CHECK: %[[VAL_44:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<i64>288! CHECK: %[[VAL_45:.*]] = fir.convert %[[VAL_44]] : (i64) -> index289! CHECK: %[[VAL_46:.*]] = arith.constant 1 : i64290! CHECK: %[[VAL_47:.*]] = fir.convert %[[VAL_46]] : (i64) -> index291! CHECK: fir.do_loop %[[VAL_48:.*]] = %[[VAL_43]] to %[[VAL_45]] step %[[VAL_47]] {292! CHECK: %[[VAL_49:.*]] = fir.convert %[[VAL_48]] : (index) -> i64293! CHECK: %[[VAL_50:.*]] = fir.convert %[[VAL_49]] : (i64) -> i32294! CHECK: %[[VAL_51:.*]] = fir.convert %[[VAL_41]] : (index) -> i64295! CHECK: %[[VAL_52:.*]] = fir.convert %[[VAL_51]] : (i64) -> i32296! CHECK: %[[VAL_53:.*]] = arith.addi %[[VAL_50]], %[[VAL_52]] : i32297! CHECK: %[[VAL_54:.*]] = fir.load %[[VAL_2]] : !fir.ref<index>298! CHECK: %[[VAL_55:.*]] = arith.addi %[[VAL_54]], %[[VAL_31B]] : index299! CHECK: fir.store %[[VAL_55]] to %[[VAL_2]] : !fir.ref<index>300! CHECK: %[[VAL_56:.*]] = hlfir.designate %[[VAL_34]]#0 (%[[VAL_54]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32>301! CHECK: hlfir.assign %[[VAL_53]] to %[[VAL_56]] : i32, !fir.ref<i32>302! CHECK: }303! CHECK: }304! CHECK: %[[VAL_57:.*]] = arith.constant true305! CHECK: %[[VAL_58:.*]] = hlfir.as_expr %[[VAL_34]]#0 move %[[VAL_57]] : (!fir.box<!fir.array<?xi32>>, i1) -> !hlfir.expr<?xi32>306! CHECK: %[[VAL_59:.*]]:3 = hlfir.associate %[[VAL_58]](%[[VAL_33]]) {adapt.valuebyref} : (!hlfir.expr<?xi32>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1)307! CHECK: %[[VAL_60:.*]] = fir.convert %[[VAL_59]]#1 : (!fir.ref<!fir.array<?xi32>>) -> !fir.ref<!fir.array<2xi32>>308! CHECK: fir.call @_QPtakes_int(%[[VAL_60]]) fastmath<contract> : (!fir.ref<!fir.array<2xi32>>) -> ()309! CHECK: hlfir.end_associate %[[VAL_59]]#1, %[[VAL_59]]#2 : !fir.ref<!fir.array<?xi32>>, i1310! CHECK: hlfir.destroy %[[VAL_58]] : !hlfir.expr<?xi32>311! CHECK: return312! CHECK: }313