diff options
Diffstat (limited to 'flang/test/Lower/HLFIR/array-ctor-as-inlined-temp.f90')
| -rw-r--r-- | flang/test/Lower/HLFIR/array-ctor-as-inlined-temp.f90 | 343 |
1 files changed, 184 insertions, 159 deletions
diff --git a/flang/test/Lower/HLFIR/array-ctor-as-inlined-temp.f90 b/flang/test/Lower/HLFIR/array-ctor-as-inlined-temp.f90 index a3e0d09cfb71..bd9d9ffcadc4 100644 --- a/flang/test/Lower/HLFIR/array-ctor-as-inlined-temp.f90 +++ b/flang/test/Lower/HLFIR/array-ctor-as-inlined-temp.f90 @@ -109,172 +109,197 @@ subroutine test_implied_do(n) ! the implied do contains more than one scalar ac-value. call takes_int([(42, j, j=1,n)]) end subroutine -! CHECK-LABEL: func.func @_QPtest_implied_do( -! CHECK: %[[VAL_1:.*]] = fir.alloca index -! CHECK: %[[VAL_2:.*]]:2 = hlfir.declare {{.*}}En -! CHECK: %[[VAL_3:.*]] = arith.constant 0 : i64 -! CHECK: %[[VAL_4:.*]] = arith.constant 2 : i64 -! CHECK: %[[VAL_5:.*]] = fir.load %[[VAL_2]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_6:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_7:.*]] = arith.subi %[[VAL_5]], %[[VAL_6]] : i64 -! CHECK: %[[VAL_8:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_9:.*]] = arith.addi %[[VAL_7]], %[[VAL_8]] : i64 -! CHECK: %[[VAL_10:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_11:.*]] = arith.divsi %[[VAL_9]], %[[VAL_10]] : i64 -! CHECK: %[[VAL_12:.*]] = arith.constant 0 : i64 -! CHECK: %[[VAL_13:.*]] = arith.cmpi sgt, %[[VAL_11]], %[[VAL_12]] : i64 -! CHECK: %[[VAL_14:.*]] = arith.select %[[VAL_13]], %[[VAL_11]], %[[VAL_12]] : i64 -! CHECK: %[[VAL_15:.*]] = arith.muli %[[VAL_4]], %[[VAL_14]] : i64 -! CHECK: %[[VAL_16:.*]] = arith.addi %[[VAL_3]], %[[VAL_15]] : i64 -! CHECK: %[[VAL_17:.*]] = fir.convert %[[VAL_16]] : (i64) -> index -! CHECK: %[[VAL_18:.*]] = arith.constant 1 : index -! CHECK: fir.store %[[VAL_18]] to %[[VAL_1]] : !fir.ref<index> -! CHECK: %[[VAL_19:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_17]] {bindc_name = ".tmp.arrayctor", uniq_name = ""} -! CHECK: %[[VAL_20:.*]] = fir.shape %[[VAL_17]] : (index) -> !fir.shape<1> -! 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>>) -! CHECK: %[[VAL_22:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_23:.*]] = fir.convert %[[VAL_22]] : (i64) -> index -! CHECK: %[[VAL_24:.*]] = fir.load %[[VAL_2]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_25:.*]] = fir.convert %[[VAL_24]] : (i64) -> index -! CHECK: %[[VAL_26:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_27:.*]] = fir.convert %[[VAL_26]] : (i64) -> index -! CHECK: fir.do_loop %[[VAL_28:.*]] = %[[VAL_23]] to %[[VAL_25]] step %[[VAL_27]] { -! CHECK: %[[VAL_29:.*]] = arith.constant 42 : i32 -! CHECK: %[[VAL_30:.*]] = fir.load %[[VAL_1]] : !fir.ref<index> -! CHECK: %[[VAL_31:.*]] = arith.addi %[[VAL_30]], %[[VAL_18]] : index -! CHECK: fir.store %[[VAL_31]] to %[[VAL_1]] : !fir.ref<index> -! CHECK: %[[VAL_32:.*]] = hlfir.designate %[[VAL_21]]#0 (%[[VAL_31]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32> -! CHECK: hlfir.assign %[[VAL_29]] to %[[VAL_32]] : i32, !fir.ref<i32> -! CHECK: %[[VAL_33:.*]] = fir.convert %[[VAL_28]] : (index) -> i32 -! CHECK: %[[VAL_34:.*]] = fir.load %[[VAL_1]] : !fir.ref<index> -! CHECK: %[[VAL_35:.*]] = arith.addi %[[VAL_34]], %[[VAL_18]] : index -! CHECK: fir.store %[[VAL_35]] to %[[VAL_1]] : !fir.ref<index> -! CHECK: %[[VAL_36:.*]] = hlfir.designate %[[VAL_21]]#0 (%[[VAL_35]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32> -! CHECK: hlfir.assign %[[VAL_33]] to %[[VAL_36]] : i32, !fir.ref<i32> -! CHECK: } -! CHECK: %[[VAL_37:.*]] = arith.constant true -! CHECK: %[[VAL_38:.*]] = hlfir.as_expr %[[VAL_21]]#0 move %[[VAL_37]] : (!fir.box<!fir.array<?xi32>>, i1) -> !hlfir.expr<?xi32> -! CHECK: fir.call -! CHECK: hlfir.destroy %[[VAL_38]] : !hlfir.expr<?xi32> +! CHECK-LABEL: func.func @_QPtest_implied_do( +! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) { +! CHECK: %[[VAL_1:.*]] = fir.alloca index +! CHECK: %[[VAL_2:.*]]:2 = hlfir.declare %[[VAL_0]] {uniq_name = "_QFtest_implied_doEn"} : (!fir.ref<i64>) -> (!fir.ref<i64>, !fir.ref<i64>) +! CHECK: %[[VAL_3:.*]] = arith.constant 0 : i64 +! CHECK: %[[VAL_4:.*]] = arith.constant 2 : i64 +! CHECK: %[[VAL_5:.*]] = fir.load %[[VAL_2]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_6:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_7:.*]] = arith.subi %[[VAL_5]], %[[VAL_6]] : i64 +! CHECK: %[[VAL_8:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_9:.*]] = arith.addi %[[VAL_7]], %[[VAL_8]] : i64 +! CHECK: %[[VAL_10:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_11:.*]] = arith.divsi %[[VAL_9]], %[[VAL_10]] : i64 +! CHECK: %[[VAL_12:.*]] = arith.constant 0 : i64 +! CHECK: %[[VAL_13:.*]] = arith.cmpi sgt, %[[VAL_11]], %[[VAL_12]] : i64 +! CHECK: %[[VAL_14:.*]] = arith.select %[[VAL_13]], %[[VAL_11]], %[[VAL_12]] : i64 +! CHECK: %[[VAL_15:.*]] = arith.muli %[[VAL_4]], %[[VAL_14]] : i64 +! CHECK: %[[VAL_16:.*]] = arith.addi %[[VAL_3]], %[[VAL_15]] : i64 +! CHECK: %[[VAL_17:.*]] = fir.convert %[[VAL_16]] : (i64) -> index +! CHECK: %[[VAL_18:.*]] = arith.constant 1 : index +! CHECK: fir.store %[[VAL_18]] to %[[VAL_1]] : !fir.ref<index> +! CHECK: %[[VAL_19:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_17]] {bindc_name = ".tmp.arrayctor", uniq_name = ""} +! CHECK: %[[VAL_20:.*]] = fir.shape %[[VAL_17]] : (index) -> !fir.shape<1> +! 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>>) +! CHECK: %[[VAL_22:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_23:.*]] = fir.convert %[[VAL_22]] : (i64) -> index +! CHECK: %[[VAL_24:.*]] = fir.load %[[VAL_2]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_25:.*]] = fir.convert %[[VAL_24]] : (i64) -> index +! CHECK: %[[VAL_26:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_27:.*]] = fir.convert %[[VAL_26]] : (i64) -> index +! CHECK: fir.do_loop %[[VAL_28:.*]] = %[[VAL_23]] to %[[VAL_25]] step %[[VAL_27]] { +! CHECK: %[[VAL_29:.*]] = arith.constant 42 : i32 +! CHECK: %[[VAL_30:.*]] = fir.load %[[VAL_1]] : !fir.ref<index> +! CHECK: %[[VAL_31:.*]] = arith.addi %[[VAL_30]], %[[VAL_18]] : index +! CHECK: fir.store %[[VAL_31]] to %[[VAL_1]] : !fir.ref<index> +! CHECK: %[[VAL_32:.*]] = hlfir.designate %[[VAL_21]]#0 (%[[VAL_31]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32> +! CHECK: hlfir.assign %[[VAL_29]] to %[[VAL_32]] : i32, !fir.ref<i32> +! CHECK: %[[VAL_33:.*]] = fir.convert %[[VAL_28]] : (index) -> i64 +! CHECK: %[[VAL_34:.*]] = fir.convert %[[VAL_33]] : (i64) -> i32 +! CHECK: %[[VAL_35:.*]] = fir.load %[[VAL_1]] : !fir.ref<index> +! CHECK: %[[VAL_36:.*]] = arith.addi %[[VAL_35]], %[[VAL_18]] : index +! CHECK: fir.store %[[VAL_36]] to %[[VAL_1]] : !fir.ref<index> +! CHECK: %[[VAL_37:.*]] = hlfir.designate %[[VAL_21]]#0 (%[[VAL_36]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32> +! CHECK: hlfir.assign %[[VAL_34]] to %[[VAL_37]] : i32, !fir.ref<i32> +! CHECK: } +! CHECK: %[[VAL_38:.*]] = arith.constant true +! CHECK: %[[VAL_39:.*]] = hlfir.as_expr %[[VAL_21]]#0 move %[[VAL_38]] : (!fir.box<!fir.array<?xi32>>, i1) -> !hlfir.expr<?xi32> +! CHECK: %[[VAL_40:.*]]:3 = hlfir.associate %[[VAL_39]](%[[VAL_20]]) {uniq_name = "adapt.valuebyref"} : (!hlfir.expr<?xi32>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1) +! CHECK: %[[VAL_41:.*]] = fir.convert %[[VAL_40]]#1 : (!fir.ref<!fir.array<?xi32>>) -> !fir.ref<!fir.array<2xi32>> +! CHECK: fir.call @_QPtakes_int(%[[VAL_41]]) fastmath<contract> : (!fir.ref<!fir.array<2xi32>>) -> () +! CHECK: hlfir.end_associate %[[VAL_40]]#1, %[[VAL_40]]#2 : !fir.ref<!fir.array<?xi32>>, i1 +! CHECK: hlfir.destroy %[[VAL_39]] : !hlfir.expr<?xi32> +! CHECK: return +! CHECK: } subroutine test_strided_implied_do(lb, ub, stride) integer(8) :: lb, ub, stride call takes_int([(42, j, j=lb,ub,stride)]) end subroutine -! CHECK-LABEL: func.func @_QPtest_strided_implied_do( -! CHECK: %[[VAL_3:.*]] = fir.alloca index -! CHECK: %[[VAL_4:.*]]:2 = hlfir.declare {{.*}}Elb -! CHECK: %[[VAL_5:.*]]:2 = hlfir.declare {{.*}}Estride -! CHECK: %[[VAL_6:.*]]:2 = hlfir.declare {{.*}}Eub -! CHECK: %[[VAL_7:.*]] = arith.constant 0 : i64 -! CHECK: %[[VAL_8:.*]] = arith.constant 2 : i64 -! CHECK: %[[VAL_9:.*]] = fir.load %[[VAL_6]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_10:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_11:.*]] = arith.subi %[[VAL_9]], %[[VAL_10]] : i64 -! CHECK: %[[VAL_12:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_13:.*]] = arith.addi %[[VAL_11]], %[[VAL_12]] : i64 -! CHECK: %[[VAL_14:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_15:.*]] = arith.divsi %[[VAL_13]], %[[VAL_14]] : i64 -! CHECK: %[[VAL_16:.*]] = arith.constant 0 : i64 -! CHECK: %[[VAL_17:.*]] = arith.cmpi sgt, %[[VAL_15]], %[[VAL_16]] : i64 -! CHECK: %[[VAL_18:.*]] = arith.select %[[VAL_17]], %[[VAL_15]], %[[VAL_16]] : i64 -! CHECK: %[[VAL_19:.*]] = arith.muli %[[VAL_8]], %[[VAL_18]] : i64 -! CHECK: %[[VAL_20:.*]] = arith.addi %[[VAL_7]], %[[VAL_19]] : i64 -! CHECK: %[[VAL_21:.*]] = fir.convert %[[VAL_20]] : (i64) -> index -! CHECK: %[[VAL_22:.*]] = arith.constant 1 : index -! CHECK: fir.store %[[VAL_22]] to %[[VAL_3]] : !fir.ref<index> -! CHECK: %[[VAL_23:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_21]] {bindc_name = ".tmp.arrayctor", uniq_name = ""} -! CHECK: %[[VAL_24:.*]] = fir.shape %[[VAL_21]] : (index) -> !fir.shape<1> -! 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>>) -! CHECK: %[[VAL_26:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_27:.*]] = fir.convert %[[VAL_26]] : (i64) -> index -! CHECK: %[[VAL_28:.*]] = fir.load %[[VAL_6]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_29:.*]] = fir.convert %[[VAL_28]] : (i64) -> index -! CHECK: %[[VAL_30:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_31:.*]] = fir.convert %[[VAL_30]] : (i64) -> index -! CHECK: fir.do_loop %[[VAL_32:.*]] = %[[VAL_27]] to %[[VAL_29]] step %[[VAL_31]] { -! CHECK: %[[VAL_33:.*]] = arith.constant 42 : i32 -! CHECK: %[[VAL_34:.*]] = fir.load %[[VAL_3]] : !fir.ref<index> -! CHECK: %[[VAL_35:.*]] = arith.addi %[[VAL_34]], %[[VAL_22]] : index -! CHECK: fir.store %[[VAL_35]] to %[[VAL_3]] : !fir.ref<index> -! CHECK: %[[VAL_36:.*]] = hlfir.designate %[[VAL_25]]#0 (%[[VAL_35]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32> -! CHECK: hlfir.assign %[[VAL_33]] to %[[VAL_36]] : i32, !fir.ref<i32> -! CHECK: %[[VAL_37:.*]] = fir.convert %[[VAL_32]] : (index) -> i32 -! CHECK: %[[VAL_38:.*]] = fir.load %[[VAL_3]] : !fir.ref<index> -! CHECK: %[[VAL_39:.*]] = arith.addi %[[VAL_38]], %[[VAL_22]] : index -! CHECK: fir.store %[[VAL_39]] to %[[VAL_3]] : !fir.ref<index> -! CHECK: %[[VAL_40:.*]] = hlfir.designate %[[VAL_25]]#0 (%[[VAL_39]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32> -! CHECK: hlfir.assign %[[VAL_37]] to %[[VAL_40]] : i32, !fir.ref<i32> -! CHECK: } -! CHECK: %[[VAL_41:.*]] = arith.constant true -! CHECK: %[[VAL_42:.*]] = hlfir.as_expr %[[VAL_25]]#0 move %[[VAL_41]] : (!fir.box<!fir.array<?xi32>>, i1) -> !hlfir.expr<?xi32> -! CHECK: fir.call -! CHECK: hlfir.destroy %[[VAL_42]] : !hlfir.expr<?xi32> +! CHECK-LABEL: func.func @_QPtest_strided_implied_do( +! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i64> {fir.bindc_name = "lb"}, +! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<i64> {fir.bindc_name = "ub"}, +! CHECK-SAME: %[[VAL_2:.*]]: !fir.ref<i64> {fir.bindc_name = "stride"}) { +! CHECK: %[[VAL_3:.*]] = fir.alloca index +! CHECK: %[[VAL_4:.*]]:2 = hlfir.declare %[[VAL_0]] {uniq_name = "_QFtest_strided_implied_doElb"} : (!fir.ref<i64>) -> (!fir.ref<i64>, !fir.ref<i64>) +! CHECK: %[[VAL_5:.*]]:2 = hlfir.declare %[[VAL_2]] {uniq_name = "_QFtest_strided_implied_doEstride"} : (!fir.ref<i64>) -> (!fir.ref<i64>, !fir.ref<i64>) +! CHECK: %[[VAL_6:.*]]:2 = hlfir.declare %[[VAL_1]] {uniq_name = "_QFtest_strided_implied_doEub"} : (!fir.ref<i64>) -> (!fir.ref<i64>, !fir.ref<i64>) +! CHECK: %[[VAL_7:.*]] = arith.constant 0 : i64 +! CHECK: %[[VAL_8:.*]] = arith.constant 2 : i64 +! CHECK: %[[VAL_9:.*]] = fir.load %[[VAL_6]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_10:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_11:.*]] = arith.subi %[[VAL_9]], %[[VAL_10]] : i64 +! CHECK: %[[VAL_12:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_13:.*]] = arith.addi %[[VAL_11]], %[[VAL_12]] : i64 +! CHECK: %[[VAL_14:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_15:.*]] = arith.divsi %[[VAL_13]], %[[VAL_14]] : i64 +! CHECK: %[[VAL_16:.*]] = arith.constant 0 : i64 +! CHECK: %[[VAL_17:.*]] = arith.cmpi sgt, %[[VAL_15]], %[[VAL_16]] : i64 +! CHECK: %[[VAL_18:.*]] = arith.select %[[VAL_17]], %[[VAL_15]], %[[VAL_16]] : i64 +! CHECK: %[[VAL_19:.*]] = arith.muli %[[VAL_8]], %[[VAL_18]] : i64 +! CHECK: %[[VAL_20:.*]] = arith.addi %[[VAL_7]], %[[VAL_19]] : i64 +! CHECK: %[[VAL_21:.*]] = fir.convert %[[VAL_20]] : (i64) -> index +! CHECK: %[[VAL_22:.*]] = arith.constant 1 : index +! CHECK: fir.store %[[VAL_22]] to %[[VAL_3]] : !fir.ref<index> +! CHECK: %[[VAL_23:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_21]] {bindc_name = ".tmp.arrayctor", uniq_name = ""} +! CHECK: %[[VAL_24:.*]] = fir.shape %[[VAL_21]] : (index) -> !fir.shape<1> +! 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>>) +! CHECK: %[[VAL_26:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_27:.*]] = fir.convert %[[VAL_26]] : (i64) -> index +! CHECK: %[[VAL_28:.*]] = fir.load %[[VAL_6]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_29:.*]] = fir.convert %[[VAL_28]] : (i64) -> index +! CHECK: %[[VAL_30:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_31:.*]] = fir.convert %[[VAL_30]] : (i64) -> index +! CHECK: fir.do_loop %[[VAL_32:.*]] = %[[VAL_27]] to %[[VAL_29]] step %[[VAL_31]] { +! CHECK: %[[VAL_33:.*]] = arith.constant 42 : i32 +! CHECK: %[[VAL_34:.*]] = fir.load %[[VAL_3]] : !fir.ref<index> +! CHECK: %[[VAL_35:.*]] = arith.addi %[[VAL_34]], %[[VAL_22]] : index +! CHECK: fir.store %[[VAL_35]] to %[[VAL_3]] : !fir.ref<index> +! CHECK: %[[VAL_36:.*]] = hlfir.designate %[[VAL_25]]#0 (%[[VAL_35]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32> +! CHECK: hlfir.assign %[[VAL_33]] to %[[VAL_36]] : i32, !fir.ref<i32> +! CHECK: %[[VAL_37:.*]] = fir.convert %[[VAL_32]] : (index) -> i64 +! CHECK: %[[VAL_38:.*]] = fir.convert %[[VAL_37]] : (i64) -> i32 +! CHECK: %[[VAL_39:.*]] = fir.load %[[VAL_3]] : !fir.ref<index> +! CHECK: %[[VAL_40:.*]] = arith.addi %[[VAL_39]], %[[VAL_22]] : index +! CHECK: fir.store %[[VAL_40]] to %[[VAL_3]] : !fir.ref<index> +! CHECK: %[[VAL_41:.*]] = hlfir.designate %[[VAL_25]]#0 (%[[VAL_40]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32> +! CHECK: hlfir.assign %[[VAL_38]] to %[[VAL_41]] : i32, !fir.ref<i32> +! CHECK: } +! CHECK: %[[VAL_42:.*]] = arith.constant true +! CHECK: %[[VAL_43:.*]] = hlfir.as_expr %[[VAL_25]]#0 move %[[VAL_42]] : (!fir.box<!fir.array<?xi32>>, i1) -> !hlfir.expr<?xi32> +! CHECK: %[[VAL_44:.*]]:3 = hlfir.associate %[[VAL_43]](%[[VAL_24]]) {uniq_name = "adapt.valuebyref"} : (!hlfir.expr<?xi32>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1) +! CHECK: %[[VAL_45:.*]] = fir.convert %[[VAL_44]]#1 : (!fir.ref<!fir.array<?xi32>>) -> !fir.ref<!fir.array<2xi32>> +! CHECK: fir.call @_QPtakes_int(%[[VAL_45]]) fastmath<contract> : (!fir.ref<!fir.array<2xi32>>) -> () +! CHECK: hlfir.end_associate %[[VAL_44]]#1, %[[VAL_44]]#2 : !fir.ref<!fir.array<?xi32>>, i1 +! CHECK: hlfir.destroy %[[VAL_43]] : !hlfir.expr<?xi32> +! CHECK: return +! CHECK: } subroutine test_nested_implied_do(n, m) integer(8) :: n, m call takes_int([((i+j, i=1,m), j=1,n)]) end subroutine -! CHECK-LABEL: func.func @_QPtest_nested_implied_do( -! CHECK: %[[VAL_2:.*]] = fir.alloca index -! CHECK: %[[VAL_3:.*]]:2 = hlfir.declare {{.*}}Em -! CHECK: %[[VAL_4:.*]]:2 = hlfir.declare {{.*}}En -! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64 -! CHECK: %[[VAL_6:.*]] = arith.constant 0 : i64 -! CHECK: %[[VAL_7:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_8:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_9:.*]] = arith.subi %[[VAL_7]], %[[VAL_8]] : i64 -! CHECK: %[[VAL_10:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_11:.*]] = arith.addi %[[VAL_9]], %[[VAL_10]] : i64 -! CHECK: %[[VAL_12:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_13:.*]] = arith.divsi %[[VAL_11]], %[[VAL_12]] : i64 -! CHECK: %[[VAL_14:.*]] = arith.constant 0 : i64 -! CHECK: %[[VAL_15:.*]] = arith.cmpi sgt, %[[VAL_13]], %[[VAL_14]] : i64 -! CHECK: %[[VAL_16:.*]] = arith.select %[[VAL_15]], %[[VAL_13]], %[[VAL_14]] : i64 -! CHECK: %[[VAL_17:.*]] = arith.addi %[[VAL_6]], %[[VAL_16]] : i64 -! CHECK: %[[VAL_18:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_19:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_20:.*]] = arith.subi %[[VAL_18]], %[[VAL_19]] : i64 -! CHECK: %[[VAL_21:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_22:.*]] = arith.addi %[[VAL_20]], %[[VAL_21]] : i64 -! CHECK: %[[VAL_23:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_24:.*]] = arith.divsi %[[VAL_22]], %[[VAL_23]] : i64 -! CHECK: %[[VAL_25:.*]] = arith.constant 0 : i64 -! CHECK: %[[VAL_26:.*]] = arith.cmpi sgt, %[[VAL_24]], %[[VAL_25]] : i64 -! CHECK: %[[VAL_27:.*]] = arith.select %[[VAL_26]], %[[VAL_24]], %[[VAL_25]] : i64 -! CHECK: %[[VAL_28:.*]] = arith.muli %[[VAL_17]], %[[VAL_27]] : i64 -! CHECK: %[[VAL_29:.*]] = arith.addi %[[VAL_5]], %[[VAL_28]] : i64 -! CHECK: %[[VAL_30:.*]] = fir.convert %[[VAL_29]] : (i64) -> index -! CHECK: %[[VAL_31:.*]] = arith.constant 1 : index -! CHECK: fir.store %[[VAL_31]] to %[[VAL_2]] : !fir.ref<index> -! CHECK: %[[VAL_32:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_30]] {bindc_name = ".tmp.arrayctor", uniq_name = ""} -! CHECK: %[[VAL_33:.*]] = fir.shape %[[VAL_30]] : (index) -> !fir.shape<1> -! 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>>) -! CHECK: %[[VAL_35:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_36:.*]] = fir.convert %[[VAL_35]] : (i64) -> index -! CHECK: %[[VAL_37:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_38:.*]] = fir.convert %[[VAL_37]] : (i64) -> index -! CHECK: %[[VAL_39:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_40:.*]] = fir.convert %[[VAL_39]] : (i64) -> index -! CHECK: fir.do_loop %[[VAL_41:.*]] = %[[VAL_36]] to %[[VAL_38]] step %[[VAL_40]] { -! CHECK: %[[VAL_42:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_43:.*]] = fir.convert %[[VAL_42]] : (i64) -> index -! CHECK: %[[VAL_44:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<i64> -! CHECK: %[[VAL_45:.*]] = fir.convert %[[VAL_44]] : (i64) -> index -! CHECK: %[[VAL_46:.*]] = arith.constant 1 : i64 -! CHECK: %[[VAL_47:.*]] = fir.convert %[[VAL_46]] : (i64) -> index -! CHECK: fir.do_loop %[[VAL_48:.*]] = %[[VAL_43]] to %[[VAL_45]] step %[[VAL_47]] { -! CHECK: %[[VAL_49:.*]] = fir.convert %[[VAL_48]] : (index) -> i32 -! CHECK: %[[VAL_50:.*]] = fir.convert %[[VAL_41]] : (index) -> i32 -! CHECK: %[[VAL_51:.*]] = arith.addi %[[VAL_49]], %[[VAL_50]] : i32 -! CHECK: %[[VAL_52:.*]] = fir.load %[[VAL_2]] : !fir.ref<index> -! CHECK: %[[VAL_53:.*]] = arith.addi %[[VAL_52]], %[[VAL_31]] : index -! CHECK: fir.store %[[VAL_53]] to %[[VAL_2]] : !fir.ref<index> -! CHECK: %[[VAL_54:.*]] = hlfir.designate %[[VAL_34]]#0 (%[[VAL_53]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32> -! CHECK: hlfir.assign %[[VAL_51]] to %[[VAL_54]] : i32, !fir.ref<i32> -! CHECK: } -! CHECK: } -! CHECK: %[[VAL_55:.*]] = arith.constant true -! CHECK: %[[VAL_56:.*]] = hlfir.as_expr %[[VAL_34]]#0 move %[[VAL_55]] : (!fir.box<!fir.array<?xi32>>, i1) -> !hlfir.expr<?xi32> -! CHECK: fir.call -! CHECK: hlfir.destroy %[[VAL_56]] : !hlfir.expr<?xi32> +! CHECK-LABEL: func.func @_QPtest_nested_implied_do( +! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}, +! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<i64> {fir.bindc_name = "m"}) { +! CHECK: %[[VAL_2:.*]] = fir.alloca index +! CHECK: %[[VAL_3:.*]]:2 = hlfir.declare %[[VAL_1]] {uniq_name = "_QFtest_nested_implied_doEm"} : (!fir.ref<i64>) -> (!fir.ref<i64>, !fir.ref<i64>) +! CHECK: %[[VAL_4:.*]]:2 = hlfir.declare %[[VAL_0]] {uniq_name = "_QFtest_nested_implied_doEn"} : (!fir.ref<i64>) -> (!fir.ref<i64>, !fir.ref<i64>) +! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64 +! CHECK: %[[VAL_6:.*]] = arith.constant 0 : i64 +! CHECK: %[[VAL_7:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_8:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_9:.*]] = arith.subi %[[VAL_7]], %[[VAL_8]] : i64 +! CHECK: %[[VAL_10:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_11:.*]] = arith.addi %[[VAL_9]], %[[VAL_10]] : i64 +! CHECK: %[[VAL_12:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_13:.*]] = arith.divsi %[[VAL_11]], %[[VAL_12]] : i64 +! CHECK: %[[VAL_14:.*]] = arith.constant 0 : i64 +! CHECK: %[[VAL_15:.*]] = arith.cmpi sgt, %[[VAL_13]], %[[VAL_14]] : i64 +! CHECK: %[[VAL_16:.*]] = arith.select %[[VAL_15]], %[[VAL_13]], %[[VAL_14]] : i64 +! CHECK: %[[VAL_17:.*]] = arith.addi %[[VAL_6]], %[[VAL_16]] : i64 +! CHECK: %[[VAL_18:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_19:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_20:.*]] = arith.subi %[[VAL_18]], %[[VAL_19]] : i64 +! CHECK: %[[VAL_21:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_22:.*]] = arith.addi %[[VAL_20]], %[[VAL_21]] : i64 +! CHECK: %[[VAL_23:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_24:.*]] = arith.divsi %[[VAL_22]], %[[VAL_23]] : i64 +! CHECK: %[[VAL_25:.*]] = arith.constant 0 : i64 +! CHECK: %[[VAL_26:.*]] = arith.cmpi sgt, %[[VAL_24]], %[[VAL_25]] : i64 +! CHECK: %[[VAL_27:.*]] = arith.select %[[VAL_26]], %[[VAL_24]], %[[VAL_25]] : i64 +! CHECK: %[[VAL_28:.*]] = arith.muli %[[VAL_17]], %[[VAL_27]] : i64 +! CHECK: %[[VAL_29:.*]] = arith.addi %[[VAL_5]], %[[VAL_28]] : i64 +! CHECK: %[[VAL_30:.*]] = fir.convert %[[VAL_29]] : (i64) -> index +! CHECK: %[[VAL_31:.*]] = arith.constant 1 : index +! CHECK: fir.store %[[VAL_31]] to %[[VAL_2]] : !fir.ref<index> +! CHECK: %[[VAL_32:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_30]] {bindc_name = ".tmp.arrayctor", uniq_name = ""} +! CHECK: %[[VAL_33:.*]] = fir.shape %[[VAL_30]] : (index) -> !fir.shape<1> +! 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>>) +! CHECK: %[[VAL_35:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_36:.*]] = fir.convert %[[VAL_35]] : (i64) -> index +! CHECK: %[[VAL_37:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_38:.*]] = fir.convert %[[VAL_37]] : (i64) -> index +! CHECK: %[[VAL_39:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_40:.*]] = fir.convert %[[VAL_39]] : (i64) -> index +! CHECK: fir.do_loop %[[VAL_41:.*]] = %[[VAL_36]] to %[[VAL_38]] step %[[VAL_40]] { +! CHECK: %[[VAL_42:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_43:.*]] = fir.convert %[[VAL_42]] : (i64) -> index +! CHECK: %[[VAL_44:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<i64> +! CHECK: %[[VAL_45:.*]] = fir.convert %[[VAL_44]] : (i64) -> index +! CHECK: %[[VAL_46:.*]] = arith.constant 1 : i64 +! CHECK: %[[VAL_47:.*]] = fir.convert %[[VAL_46]] : (i64) -> index +! CHECK: fir.do_loop %[[VAL_48:.*]] = %[[VAL_43]] to %[[VAL_45]] step %[[VAL_47]] { +! CHECK: %[[VAL_49:.*]] = fir.convert %[[VAL_48]] : (index) -> i64 +! CHECK: %[[VAL_50:.*]] = fir.convert %[[VAL_49]] : (i64) -> i32 +! CHECK: %[[VAL_51:.*]] = fir.convert %[[VAL_41]] : (index) -> i64 +! CHECK: %[[VAL_52:.*]] = fir.convert %[[VAL_51]] : (i64) -> i32 +! CHECK: %[[VAL_53:.*]] = arith.addi %[[VAL_50]], %[[VAL_52]] : i32 +! CHECK: %[[VAL_54:.*]] = fir.load %[[VAL_2]] : !fir.ref<index> +! CHECK: %[[VAL_55:.*]] = arith.addi %[[VAL_54]], %[[VAL_31]] : index +! CHECK: fir.store %[[VAL_55]] to %[[VAL_2]] : !fir.ref<index> +! CHECK: %[[VAL_56:.*]] = hlfir.designate %[[VAL_34]]#0 (%[[VAL_55]]) : (!fir.box<!fir.array<?xi32>>, index) -> !fir.ref<i32> +! CHECK: hlfir.assign %[[VAL_53]] to %[[VAL_56]] : i32, !fir.ref<i32> +! CHECK: } +! CHECK: } +! CHECK: %[[VAL_57:.*]] = arith.constant true +! CHECK: %[[VAL_58:.*]] = hlfir.as_expr %[[VAL_34]]#0 move %[[VAL_57]] : (!fir.box<!fir.array<?xi32>>, i1) -> !hlfir.expr<?xi32> +! CHECK: %[[VAL_59:.*]]:3 = hlfir.associate %[[VAL_58]](%[[VAL_33]]) {uniq_name = "adapt.valuebyref"} : (!hlfir.expr<?xi32>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1) +! CHECK: %[[VAL_60:.*]] = fir.convert %[[VAL_59]]#1 : (!fir.ref<!fir.array<?xi32>>) -> !fir.ref<!fir.array<2xi32>> +! CHECK: fir.call @_QPtakes_int(%[[VAL_60]]) fastmath<contract> : (!fir.ref<!fir.array<2xi32>>) -> () +! CHECK: hlfir.end_associate %[[VAL_59]]#1, %[[VAL_59]]#2 : !fir.ref<!fir.array<?xi32>>, i1 +! CHECK: hlfir.destroy %[[VAL_58]] : !hlfir.expr<?xi32> +! CHECK: return +! CHECK: } |