Index: flang/lib/Lower/Bridge.cpp =================================================================== --- flang/lib/Lower/Bridge.cpp +++ flang/lib/Lower/Bridge.cpp @@ -96,6 +96,10 @@ // Data members for structured loops. fir::DoLoopOp doLoop = nullptr; + // Do loop block argument holding the current value + // of the do-variable. It has the same data type as the original + // do-variable. + mlir::Value doVarValue = nullptr; // Data members for unstructured loops. bool hasRealControl = false; @@ -166,7 +170,7 @@ llvm::SmallSetVector seen; }; -using IncrementLoopNestInfo = llvm::SmallVector; +using IncrementLoopNestInfo = llvm::SmallVector; } // namespace //===----------------------------------------------------------------------===// @@ -1228,13 +1232,42 @@ // Structured loop - generate fir.do_loop. if (info.isStructured()) { + // Keep the original data type of integer do-variables + // for structured loops. When do-variable's data type + // is an integer type shorter than IndexType, processing + // the do-variable separately from the DoLoop's iteration index + // allows getting rid of type casts, which can make backend + // optimizations easier. + // + // In order to make backends' life easier, we can add an extra + // iteration variable in the DoLoop's iter_args() list. This extra + // variable has the same data type as the original do-variable. + // + // We could have disabled an extra iteration variable usage + // for cases when its data type is not shorter than IndexType, + // but there seem to be no way to get IndexType's bit width. + mlir::Value doVarInit = nullptr; + if (!info.isUnordered) + doVarInit = builder->createConvert(loc, info.getLoopVariableType(), + lowerValue); + info.doLoop = builder->create( loc, lowerValue, upperValue, info.stepValue, info.isUnordered, - /*finalCountValue=*/!info.isUnordered); + /*finalCountValue=*/!info.isUnordered, + doVarInit ? mlir::ValueRange{doVarInit} : mlir::ValueRange{}); builder->setInsertionPointToStart(info.doLoop.getBody()); - // Update the loop variable value, as it may have non-index references. - mlir::Value value = builder->createConvert( - loc, info.getLoopVariableType(), info.doLoop.getInductionVar()); + mlir::Value value; + if (!doVarInit) { + // Update the loop variable value, as it may have non-index + // references. + value = builder->createConvert(loc, info.getLoopVariableType(), + info.doLoop.getInductionVar()); + } else { + // The loop variable value is the region's argument rather + // than the DoLoop's index value. + value = info.doLoop.getRegionIterArgs()[0]; + info.doVarValue = value; + } builder->create(loc, value, info.loopVariable); if (info.maskExpr) { Fortran::lower::StatementContext stmtCtx; @@ -1325,16 +1358,35 @@ // End fir.do_loop. if (!info.isUnordered) { builder->setInsertionPointToEnd(info.doLoop.getBody()); - mlir::Value result = builder->create( - loc, info.doLoop.getInductionVar(), info.doLoop.getStep()); - builder->create(loc, result); + llvm::SmallVector results; + results.push_back(builder->create( + loc, info.doLoop.getInductionVar(), info.doLoop.getStep())); + if (info.doVarValue) { + // If we use an extra iteration variable of the same data + // type as the original do-variable, we have to increment + // it by the step value. Note that the step has 'index' + // type, so we need to cast it, first. + mlir::Value stepCast = builder->createConvert( + loc, info.getLoopVariableType(), info.doLoop.getStep()); + results.push_back(builder->create( + loc, info.doVarValue, stepCast)); + } + builder->create(loc, results); } builder->setInsertionPointAfter(info.doLoop); if (info.isUnordered) continue; // The loop control variable may be used after loop execution. - mlir::Value lcv = builder->createConvert( - loc, info.getLoopVariableType(), info.doLoop.getResult(0)); + mlir::Value lcv = nullptr; + if (info.doVarValue) { + // Final do-variable value is the second result of the DoLoop. + assert(info.doLoop.getResults().size() == 2 && + "invalid do-variable handling"); + lcv = info.doLoop.getResult(1); + } else { + lcv = builder->createConvert(loc, info.getLoopVariableType(), + info.doLoop.getResult(0)); + } builder->create(loc, lcv, info.loopVariable); continue; } Index: flang/test/Lower/OpenMP/omp-parallel-private-clause-fixes.f90 =================================================================== --- flang/test/Lower/OpenMP/omp-parallel-private-clause-fixes.f90 +++ flang/test/Lower/OpenMP/omp-parallel-private-clause-fixes.f90 @@ -20,18 +20,21 @@ ! CHECK: %[[VAL_9:.*]] = fir.load %[[VAL_4]] : !fir.ref ! CHECK: %[[VAL_10:.*]] = fir.convert %[[VAL_9]] : (i32) -> index ! CHECK: %[[VAL_11:.*]] = arith.constant 1 : index -! CHECK: %[[VAL_12:.*]] = fir.do_loop %[[VAL_13:.*]] = %[[VAL_8]] to %[[VAL_10]] step %[[VAL_11]] -> index { -! CHECK: %[[VAL_14:.*]] = fir.convert %[[VAL_13]] : (index) -> i32 -! CHECK: fir.store %[[VAL_14]] to %[[PRIV_J]] : !fir.ref +! CHECK: %[[LB:.*]] = fir.convert %[[VAL_8]] : (index) -> i32 +! CHECK: %[[VAL_12:.*]]:2 = fir.do_loop %[[VAL_13:[^ ]*]] = +! CHECK-SAME: %[[VAL_8]] to %[[VAL_10]] step %[[VAL_11]] +! CHECK-SAME: iter_args(%[[IV:.*]] = %[[LB]]) -> (index, i32) { +! CHECK: fir.store %[[IV]] to %[[PRIV_J]] : !fir.ref ! CHECK: %[[LOAD:.*]] = fir.load %[[PRIV_I]] : !fir.ref ! CHECK: %[[VAL_15:.*]] = fir.load %[[PRIV_J]] : !fir.ref ! CHECK: %[[VAL_16:.*]] = arith.addi %[[LOAD]], %[[VAL_15]] : i32 ! CHECK: fir.store %[[VAL_16]] to %[[PRIV_X]] : !fir.ref ! CHECK: %[[VAL_17:.*]] = arith.addi %[[VAL_13]], %[[VAL_11]] : index -! CHECK: fir.result %[[VAL_17]] : index +! CHECK: %[[STEPCAST:.*]] = fir.convert %[[VAL_11]] : (index) -> i32 +! CHECK: %[[IVINC:.*]] = arith.addi %[[IV]], %[[STEPCAST]] +! CHECK: fir.result %[[VAL_17]], %[[IVINC]] : index, i32 ! CHECK: } -! CHECK: %[[VAL_18:.*]] = fir.convert %[[VAL_19:.*]] : (index) -> i32 -! CHECK: fir.store %[[VAL_18]] to %[[PRIV_J]] : !fir.ref +! CHECK: fir.store %[[VAL_12]]#1 to %[[PRIV_J]] : !fir.ref ! CHECK: omp.yield ! CHECK: } ! CHECK: omp.terminator Index: flang/test/Lower/OpenMP/omp-wsloop-variable.f90 =================================================================== --- flang/test/Lower/OpenMP/omp-wsloop-variable.f90 +++ flang/test/Lower/OpenMP/omp-wsloop-variable.f90 @@ -99,9 +99,11 @@ !CHECK: %[[VAL_16:.*]] = fir.convert %[[VAL_15]] : (i32) -> index !CHECK: %[[VAL_17:.*]] = fir.load %[[VAL_4]] : !fir.ref !CHECK: %[[VAL_18:.*]] = fir.convert %[[VAL_17]] : (i32) -> index -!CHECK: %[[VAL_19:.*]] = fir.do_loop %[[VAL_20:.*]] = %[[VAL_14]] to %[[VAL_16]] step %[[VAL_18]] -> index { -!CHECK: %[[VAL_21:.*]] = fir.convert %[[VAL_20]] : (index) -> i64 -!CHECK: fir.store %[[VAL_21]] to %[[VAL_5]] : !fir.ref +!CHECK: %[[LB:.*]] = fir.convert %[[VAL_14]] : (index) -> i64 +!CHECK: %[[VAL_19:.*]]:2 = fir.do_loop %[[VAL_20:[^ ]*]] = +!CHECK-SAME: %[[VAL_14]] to %[[VAL_16]] step %[[VAL_18]] +!CHECK-SAME: iter_args(%[[IV:.*]] = %[[LB]]) -> (index, i64) { +!CHECK: fir.store %[[IV]] to %[[VAL_5]] : !fir.ref !CHECK: %[[LOAD_IV:.*]] = fir.load %[[STORE_IV]] : !fir.ref !CHECK: %[[VAL_22:.*]] = fir.convert %[[LOAD_IV]] : (i32) -> i64 !CHECK: %[[VAL_23:.*]] = fir.load %[[VAL_5]] : !fir.ref @@ -109,10 +111,11 @@ !CHECK: %[[VAL_25:.*]] = fir.convert %[[VAL_24]] : (i64) -> f32 !CHECK: fir.store %[[VAL_25]] to %[[VAL_6]] : !fir.ref !CHECK: %[[VAL_26:.*]] = arith.addi %[[VAL_20]], %[[VAL_18]] : index -!CHECK: fir.result %[[VAL_26]] : index +!CHECK: %[[STEPCAST:.*]] = fir.convert %[[VAL_18]] : (index) -> i64 +!CHECK: %[[IVINC:.*]] = arith.addi %[[IV]], %[[STEPCAST]] +!CHECK: fir.result %[[VAL_26]], %[[IVINC]] : index, i64 !CHECK: } -!CHECK: %[[VAL_27:.*]] = fir.convert %[[VAL_28:.*]] : (index) -> i64 -!CHECK: fir.store %[[VAL_27]] to %[[VAL_5]] : !fir.ref +!CHECK: fir.store %[[VAL_19]]#1 to %[[VAL_5]] : !fir.ref !CHECK: omp.yield !CHECK: } !CHECK: return Index: flang/test/Lower/array-expression-slice-1.f90 =================================================================== --- flang/test/Lower/array-expression-slice-1.f90 +++ flang/test/Lower/array-expression-slice-1.f90 @@ -25,20 +25,19 @@ ! CHECK-DAG: %[[VAL_30:.*]] = fir.alloca i32 {bindc_name = "j", uniq_name = "_QFEj"} ! CHECK-DAG: %[[VAL_31:.*]] = fir.alloca i32 {bindc_name = "k", uniq_name = "_QFEk"} ! CHECK: fir.store %[[VAL_24]] to %[[VAL_31]] : !fir.ref -! CHECK: br ^bb1(%[[VAL_5]], %[[VAL_0]] : index, index) -! CHECK: ^bb1(%[[VAL_32:.*]]: index, %[[VAL_33:.*]]: index): +! CHECK: %[[LB:.*]] = fir.convert %[[VAL_5]] : (index) -> i32 +! CHECK: br ^bb1(%[[LB]], %[[VAL_0]] : i32, index) +! CHECK: ^bb1(%[[VAL_32:.*]]: i32, %[[VAL_33:.*]]: index): ! CHECK: %[[VAL_34:.*]] = arith.cmpi sgt, %[[VAL_33]], %[[VAL_6]] : index ! CHECK: cond_br %[[VAL_34]], ^bb2, ^bb6 ! CHECK: ^bb2: -! CHECK: %[[VAL_35:.*]] = fir.convert %[[VAL_32]] : (index) -> i32 -! CHECK: fir.store %[[VAL_35]] to %[[VAL_30]] : !fir.ref -! CHECK: br ^bb3(%[[VAL_5]], %[[VAL_0]] : index, index) -! CHECK: ^bb3(%[[VAL_36:.*]]: index, %[[VAL_37:.*]]: index): +! CHECK: fir.store %[[VAL_32]] to %[[VAL_30]] : !fir.ref +! CHECK: br ^bb3(%[[LB]], %[[VAL_0]] : i32, index) +! CHECK: ^bb3(%[[VAL_36:.*]]: i32, %[[VAL_37:.*]]: index): ! CHECK: %[[VAL_38:.*]] = arith.cmpi sgt, %[[VAL_37]], %[[VAL_6]] : index ! CHECK: cond_br %[[VAL_38]], ^bb4, ^bb5 ! CHECK: ^bb4: -! CHECK: %[[VAL_39:.*]] = fir.convert %[[VAL_36]] : (index) -> i32 -! CHECK: fir.store %[[VAL_39]] to %[[VAL_28]] : !fir.ref +! CHECK: fir.store %[[VAL_36]] to %[[VAL_28]] : !fir.ref ! CHECK: %[[VAL_40:.*]] = fir.load %[[VAL_31]] : !fir.ref ! CHECK: %[[VAL_41:.*]] = arith.addi %[[VAL_40]], %[[VAL_23]] : i32 ! CHECK: fir.store %[[VAL_41]] to %[[VAL_31]] : !fir.ref @@ -53,12 +52,11 @@ ! CHECK: %[[VAL_50:.*]] = arith.subi %[[VAL_49]], %[[VAL_20]] : i64 ! CHECK: %[[VAL_51:.*]] = fir.coordinate_of %[[VAL_25]], %[[VAL_47]], %[[VAL_50]] : (!fir.ref>, i64, i64) -> !fir.ref ! CHECK: fir.store %[[VAL_44]] to %[[VAL_51]] : !fir.ref -! CHECK: %[[VAL_52:.*]] = arith.addi %[[VAL_36]], %[[VAL_5]] : index +! CHECK: %[[VAL_52:.*]] = arith.addi %[[VAL_36]], %[[LB]] : i32 ! CHECK: %[[VAL_53:.*]] = arith.subi %[[VAL_37]], %[[VAL_5]] : index -! CHECK: br ^bb3(%[[VAL_52]], %[[VAL_53]] : index, index) +! CHECK: br ^bb3(%[[VAL_52]], %[[VAL_53]] : i32, index) ! CHECK: ^bb5: -! CHECK: %[[VAL_54:.*]] = fir.convert %[[VAL_36]] : (index) -> i32 -! CHECK: fir.store %[[VAL_54]] to %[[VAL_28]] : !fir.ref +! CHECK: fir.store %[[VAL_36]] to %[[VAL_28]] : !fir.ref ! CHECK: %[[VAL_55:.*]] = fir.load %[[VAL_31]] : !fir.ref ! CHECK: %[[VAL_56:.*]] = fir.convert %[[VAL_55]] : (i32) -> f32 ! CHECK: %[[VAL_57:.*]] = fir.call @fir.sin.f32.f32(%[[VAL_56]]) : (f32) -> f32 @@ -67,12 +65,11 @@ ! CHECK: %[[VAL_60:.*]] = arith.subi %[[VAL_59]], %[[VAL_20]] : i64 ! CHECK: %[[VAL_61:.*]] = fir.coordinate_of %[[VAL_27]], %[[VAL_60]] : (!fir.ref>, i64) -> !fir.ref ! CHECK: fir.store %[[VAL_57]] to %[[VAL_61]] : !fir.ref -! CHECK: %[[VAL_62:.*]] = arith.addi %[[VAL_32]], %[[VAL_5]] : index +! CHECK: %[[VAL_62:.*]] = arith.addi %[[VAL_32]], %[[LB]] : i32 ! CHECK: %[[VAL_63:.*]] = arith.subi %[[VAL_33]], %[[VAL_5]] : index -! CHECK: br ^bb1(%[[VAL_62]], %[[VAL_63]] : index, index) +! CHECK: br ^bb1(%[[VAL_62]], %[[VAL_63]] : i32, index) ! CHECK: ^bb6: -! CHECK: %[[VAL_64:.*]] = fir.convert %[[VAL_32]] : (index) -> i32 -! CHECK: fir.store %[[VAL_64]] to %[[VAL_30]] : !fir.ref +! CHECK: fir.store %[[VAL_32]] to %[[VAL_30]] : !fir.ref ! CHECK: %[[VAL_65:.*]] = fir.shape %[[VAL_11]] : (index) -> !fir.shape<1> ! CHECK: %[[VAL_66:.*]] = fir.undefined index ! CHECK: %[[VAL_67:.*]] = fir.shape %[[VAL_0]], %[[VAL_0]] : (index, index) -> !fir.shape<2> Index: flang/test/Lower/do_loop.f90 =================================================================== --- flang/test/Lower/do_loop.f90 +++ flang/test/Lower/do_loop.f90 @@ -16,16 +16,19 @@ ! CHECK: %[[C5:.*]] = arith.constant 5 : i32 ! CHECK: %[[C5_CVT:.*]] = fir.convert %c5_i32 : (i32) -> index ! CHECK: %[[C1:.*]] = arith.constant 1 : index - ! CHECK: %[[LI_RES:.*]] = fir.do_loop %[[LI:.*]] = %[[C1_CVT]] to %[[C5_CVT]] step %[[C1]] -> index { + ! CHECK: %[[LB:.*]] = fir.convert %[[C1_CVT]] : (index) -> i32 + ! CHECK: %[[LI_RES:.*]]:2 = fir.do_loop %[[LI:[^ ]*]] = + ! CHECK-SAME: %[[C1_CVT]] to %[[C5_CVT]] step %[[C1]] + ! CHECK-SAME: iter_args(%[[IV:.*]] = %[[LB]]) -> (index, i32) { do i=1,5 - ! CHECK: %[[LI_CVT:.*]] = fir.convert %[[LI]] : (index) -> i32 - ! CHECK: fir.store %[[LI_CVT]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[IV]] to %[[I_REF]] : !fir.ref ! CHECK: %[[LI_NEXT:.*]] = arith.addi %[[LI]], %[[C1]] : index - ! CHECK: fir.result %[[LI_NEXT]] : index + ! CHECK: %[[STEPCAST:.*]] = fir.convert %[[C1]] : (index) -> i32 + ! CHECK: %[[IVINC:.*]] = arith.addi %[[IV]], %[[STEPCAST]] : i32 + ! CHECK: fir.result %[[LI_NEXT]], %[[IVINC]] : index, i32 ! CHECK: } end do - ! CHECK: %[[LI_RES_CVT:.*]] = fir.convert %[[LI_RES]] : (index) -> i32 - ! CHECK: fir.store %[[LI_RES_CVT]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[LI_RES]]#1 to %[[I_REF]] : !fir.ref ! CHECK: %[[I:.*]] = fir.load %[[I_REF]] : !fir.ref ! CHECK: %{{.*}} = fir.call @_FortranAioOutputInteger32(%{{.*}}, %[[I]]) : (!fir.ref, i32) -> i1 print *, i @@ -46,19 +49,23 @@ ! CHECK: %[[E_I:.*]] = arith.constant 5 : i32 ! CHECK: %[[E_I_CVT:.*]] = fir.convert %[[E_I]] : (i32) -> index ! CHECK: %[[ST_I:.*]] = arith.constant 1 : index - ! CHECK: %[[I_RES:.*]] = fir.do_loop %[[LI:.*]] = %[[S_I_CVT]] to %[[E_I_CVT]] step %[[ST_I]] -> index { + ! CHECK: %[[I_LB:.*]] = fir.convert %[[S_I_CVT]] : (index) -> i32 + ! CHECK: %[[I_RES:.*]]:2 = fir.do_loop %[[LI:[^ ]*]] = + ! CHECK-SAME: %[[S_I_CVT]] to %[[E_I_CVT]] step %[[ST_I]] + ! CHECK-SAME: iter_args(%[[I_IV:.*]] = %[[I_LB]]) -> (index, i32) { do i=1,5 - ! CHECK: %[[LI_CVT:.*]] = fir.convert %[[LI]] : (index) -> i32 - ! CHECK: fir.store %[[LI_CVT]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[I_IV]] to %[[I_REF]] : !fir.ref ! CHECK: %[[S_J:.*]] = arith.constant 1 : i32 ! CHECK: %[[S_J_CVT:.*]] = fir.convert %[[S_J]] : (i32) -> index ! CHECK: %[[E_J:.*]] = arith.constant 5 : i32 ! CHECK: %[[E_J_CVT:.*]] = fir.convert %[[E_J]] : (i32) -> index ! CHECK: %[[ST_J:.*]] = arith.constant 1 : index - ! CHECK: %[[J_RES:.*]] = fir.do_loop %[[LJ:.*]] = %[[S_J_CVT]] to %[[E_J_CVT]] step %[[ST_J]] -> index { + ! CHECK: %[[J_LB:.*]] = fir.convert %[[S_J_CVT]] : (index) -> i32 + ! CHECK: %[[J_RES:.*]]:2 = fir.do_loop %[[LJ:[^ ]*]] = + ! CHECK-SAME: %[[S_J_CVT]] to %[[E_J_CVT]] step %[[ST_J]] + ! CHECK-SAME: iter_args(%[[J_IV:.*]] = %[[J_LB]]) -> (index, i32) { do j=1,5 - ! CHECK: %[[LJ_CVT:.*]] = fir.convert %[[LJ]] : (index) -> i32 - ! CHECK: fir.store %[[LJ_CVT]] to %[[J_REF]] : !fir.ref + ! CHECK: fir.store %[[J_IV]] to %[[J_REF]] : !fir.ref ! CHECK: %[[ASUM:.*]] = fir.load %[[ASUM_REF]] : !fir.ref ! CHECK: %[[I:.*]] = fir.load %[[I_REF]] : !fir.ref ! CHECK: %[[I_CVT:.*]] = fir.convert %[[I]] : (i32) -> i64 @@ -74,17 +81,19 @@ ! CHECK: fir.store %[[ASUM_NEW]] to %[[ASUM_REF]] : !fir.ref asum = asum + arr(i,j) ! CHECK: %[[LJ_NEXT:.*]] = arith.addi %[[LJ]], %[[ST_J]] : index - ! CHECK: fir.result %[[LJ_NEXT]] : index + ! CHECK: %[[J_STEPCAST:.*]] = fir.convert %[[ST_J]] : (index) -> i32 + ! CHECK: %[[J_IVINC:.*]] = arith.addi %[[J_IV]], %[[J_STEPCAST]] : i32 + ! CHECK: fir.result %[[LJ_NEXT]], %[[J_IVINC]] : index, i32 ! CHECK: } end do - ! CHECK: %[[J_RES_CVT:.*]] = fir.convert %[[J_RES]] : (index) -> i32 - ! CHECK: fir.store %[[J_RES_CVT]] to %[[J_REF]] : !fir.ref + ! CHECK: fir.store %[[J_RES]]#1 to %[[J_REF]] : !fir.ref ! CHECK: %[[LI_NEXT:.*]] = arith.addi %[[LI]], %[[ST_I]] : index - ! CHECK: fir.result %[[LI_NEXT]] : index + ! CHECK: %[[I_STEPCAST:.*]] = fir.convert %[[ST_I]] : (index) -> i32 + ! CHECK: %[[I_IVINC:.*]] = arith.addi %[[I_IV]], %[[I_STEPCAST]] : i32 + ! CHECK: fir.result %[[LI_NEXT]], %[[I_IVINC]] : index, i32 ! CHECK: } end do - ! CHECK: %[[I_RES_CVT:.*]] = fir.convert %[[I_RES]] : (index) -> i32 - ! CHECK: fir.store %[[I_RES_CVT]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[I_RES]]#1 to %[[I_REF]] : !fir.ref end subroutine ! Test a downcounting loop @@ -99,16 +108,19 @@ ! CHECK: %[[C1_CVT:.*]] = fir.convert %[[C1]] : (i32) -> index ! CHECK: %[[CMINUS1:.*]] = arith.constant -1 : i32 ! CHECK: %[[CMINUS1_STEP_CVT:.*]] = fir.convert %[[CMINUS1]] : (i32) -> index - ! CHECK: %[[I_RES:.*]] = fir.do_loop %[[LI:.*]] = %[[C5_CVT]] to %[[C1_CVT]] step %[[CMINUS1_STEP_CVT]] -> index { + ! CHECK: %[[I_LB:.*]] = fir.convert %[[C5_CVT]] : (index) -> i32 + ! CHECK: %[[I_RES:.*]]:2 = fir.do_loop %[[LI:[^ ]*]] = + ! CHECK-SAME: %[[C5_CVT]] to %[[C1_CVT]] step %[[CMINUS1_STEP_CVT]] + ! CHECK-SAME: iter_args(%[[I_IV:.*]] = %[[I_LB]]) -> (index, i32) { do i=5,1,-1 - ! CHECK: %[[LI_CVT:.*]] = fir.convert %[[LI]] : (index) -> i32 - ! CHECK: fir.store %[[LI_CVT]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[I_IV]] to %[[I_REF]] : !fir.ref ! CHECK: %[[LI_NEXT:.*]] = arith.addi %[[LI]], %[[CMINUS1_STEP_CVT]] : index - ! CHECK: fir.result %[[LI_NEXT]] : index + ! CHECK: %[[I_STEPCAST:.*]] = fir.convert %[[CMINUS1_STEP_CVT]] : (index) -> i32 + ! CHECK: %[[I_IVINC:.*]] = arith.addi %[[I_IV]], %[[I_STEPCAST]] : i32 + ! CHECK: fir.result %[[LI_NEXT]], %[[I_IVINC]] : index, i32 ! CHECK: } end do - ! CHECK: %[[I_RES_CVT:.*]] = fir.convert %[[I_RES]] : (index) -> i32 - ! CHECK: fir.store %[[I_RES_CVT]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[I_RES]]#1 to %[[I_REF]] : !fir.ref end subroutine ! Test a general loop with a variable step @@ -122,16 +134,19 @@ ! CHECK: %[[E_CVT:.*]] = fir.convert %[[E]] : (i32) -> index ! CHECK: %[[ST:.*]] = fir.load %[[ST_REF]] : !fir.ref ! CHECK: %[[ST_CVT:.*]] = fir.convert %[[ST]] : (i32) -> index - ! CHECK: %[[I_RES:.*]] = fir.do_loop %[[LI:.*]] = %[[S_CVT]] to %[[E_CVT]] step %[[ST_CVT]] -> index { + ! CHECK: %[[I_LB:.*]] = fir.convert %[[S_CVT]] : (index) -> i32 + ! CHECK: %[[I_RES:.*]]:2 = fir.do_loop %[[LI:[^ ]*]] = + ! CHECK-SAME: %[[S_CVT]] to %[[E_CVT]] step %[[ST_CVT]] + ! CHECK-SAME: iter_args(%[[I_IV:.*]] = %[[I_LB]]) -> (index, i32) { do i=s,e,st - ! CHECK: %[[LI_CVT:.*]] = fir.convert %[[LI]] : (index) -> i32 - ! CHECK: fir.store %[[LI_CVT]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[I_IV]] to %[[I_REF]] : !fir.ref ! CHECK: %[[LI_NEXT:.*]] = arith.addi %[[LI]], %[[ST_CVT]] : index - ! CHECK: fir.result %[[LI_NEXT]] : index + ! CHECK: %[[I_STEPCAST:.*]] = fir.convert %[[ST_CVT]] : (index) -> i32 + ! CHECK: %[[I_IVINC:.*]] = arith.addi %[[I_IV]], %[[I_STEPCAST]] : i32 + ! CHECK: fir.result %[[LI_NEXT]], %[[I_IVINC]] : index, i32 ! CHECK: } end do - ! CHECK: %[[I_RES_CVT:.*]] = fir.convert %[[I_RES]] : (index) -> i32 - ! CHECK: fir.store %[[I_RES_CVT]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[I_RES]]#1 to %[[I_REF]] : !fir.ref end subroutine ! Test usage of pointer variables as index, start, end and step variables @@ -170,16 +185,19 @@ ! CHECK: %[[ST_PTR:.*]] = fir.load %[[ST_PTR_REF]] : !fir.ref> ! CHECK: %[[ST:.*]] = fir.load %[[ST_PTR]] : !fir.ptr ! CHECK: %[[ST_CVT:.*]] = fir.convert %[[ST]] : (i32) -> index -! CHECK: %[[I_RES:.*]] = fir.do_loop %[[LI:.*]] = %[[S_CVT]] to %[[E_CVT]] step %[[ST_CVT]] -> index { +! CHECK: %[[I_LB:.*]] = fir.convert %[[S_CVT]] : (index) -> i32 +! CHECK: %[[I_RES:.*]]:2 = fir.do_loop %[[LI:[^ ]*]] = +! CHECK-SAME: %[[S_CVT]] to %[[E_CVT]] step %[[ST_CVT]] +! CHECK-SAME: iter_args(%[[I_IV:.*]] = %[[I_LB]]) -> (index, i32) { do iptr=sptr,eptr,stptr -! CHECK: %[[LI_CVT:.*]] = fir.convert %[[LI]] : (index) -> i32 -! CHECK: fir.store %[[LI_CVT]] to %[[I_PTR]] : !fir.ptr +! CHECK: fir.store %[[I_IV]] to %[[I_PTR]] : !fir.ptr ! CHECK: %[[LI_NEXT:.*]] = arith.addi %[[LI]], %[[ST_CVT]] : index -! CHECK: fir.result %[[LI_NEXT]] : index +! CHECK: %[[I_STEPCAST:.*]] = fir.convert %[[ST_CVT]] : (index) -> i32 +! CHECK: %[[I_IVINC:.*]] = arith.addi %[[I_IV]], %[[I_STEPCAST]] : i32 +! CHECK: fir.result %[[LI_NEXT]], %[[I_IVINC]] : index, i32 end do ! CHECK: } -! CHECK: %[[I_RES_CVT:.*]] = fir.convert %[[I_RES]] : (index) -> i32 -! CHECK: fir.store %[[I_RES_CVT:.*]] to %[[I_PTR]] : !fir.ptr +! CHECK: fir.store %[[I_RES]]#1 to %[[I_PTR]] : !fir.ptr end subroutine ! Test usage of non-default integer kind for loop control and loop index variable @@ -196,16 +214,19 @@ ! CHECK: %[[ST_CVT:.*]] = fir.convert %[[ST]] : (i64) -> index integer(kind=8) :: s, e, st - ! CHECK: %[[I_RES:.*]] = fir.do_loop %[[LI:.*]] = %[[S_CVT]] to %[[E_CVT]] step %[[ST_CVT]] -> index { + ! CHECK: %[[I_LB:.*]] = fir.convert %[[S_CVT]] : (index) -> i64 + ! CHECK: %[[I_RES:.*]]:2 = fir.do_loop %[[LI:[^ ]*]] = + ! CHECK-SAME: %[[S_CVT]] to %[[E_CVT]] step %[[ST_CVT]] + ! CHECK-SAME: iter_args(%[[I_IV:.*]] = %[[I_LB]]) -> (index, i64) { do i=s,e,st - ! CHECK: %[[LI_CVT:.*]] = fir.convert %[[LI]] : (index) -> i64 - ! CHECK: fir.store %[[LI_CVT]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[I_IV]] to %[[I_REF]] : !fir.ref ! CHECK: %[[LI_NEXT:.*]] = arith.addi %[[LI]], %[[ST_CVT]] : index - ! CHECK: fir.result %[[LI_NEXT]] : index + ! CHECK: %[[I_STEPCAST:.*]] = fir.convert %[[ST_CVT]] : (index) -> i64 + ! CHECK: %[[I_IVINC:.*]] = arith.addi %[[I_IV]], %[[I_STEPCAST]] : i64 + ! CHECK: fir.result %[[LI_NEXT]], %[[I_IVINC]] : index, i64 end do ! CHECK: } - ! CHECK: %[[I_RES_CVT:.*]] = fir.convert %[[I_RES]] : (index) -> i64 - ! CHECK: fir.store %[[I_RES_CVT]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[I_RES]]#1 to %[[I_REF]] : !fir.ref end subroutine ! Test real loop control. Index: flang/test/Lower/do_loop_unstructured.f90 =================================================================== --- flang/test/Lower/do_loop_unstructured.f90 +++ flang/test/Lower/do_loop_unstructured.f90 @@ -205,9 +205,10 @@ ! CHECK: %[[COND:.*]] = arith.cmpi sgt, %[[TRIP_VAR]], %[[ZERO]] : i32 ! CHECK: cf.cond_br %[[COND]], ^[[BODY:.*]], ^[[EXIT:.*]] ! CHECK: ^[[BODY]]: -! CHECK: %{{.*}} = fir.do_loop %[[J_INDEX:.*]] = %{{.*}} to %{{.*}} step %{{.*}} -> index { -! CHECK: %[[J_INDEX_CVT:.*]] = fir.convert %[[J_INDEX]] : (index) -> i32 -! CHECK: fir.store %[[J_INDEX_CVT]] to %[[LOOP_VAR_J_REF]] : !fir.ref +! CHECK: %{{.*}} = fir.do_loop %[[J_INDEX:[^ ]*]] = +! CHECK-SAME: %{{.*}} to %{{.*}} step %{{[^ ]*}} +! CHECK-SAME: iter_args(%[[J_IV:.*]] = %{{.*}}) -> (index, i32) { +! CHECK: fir.store %[[J_IV]] to %[[LOOP_VAR_J_REF]] : !fir.ref ! CHECK: } ! CHECK: %[[TRIP_VAR_I:.*]] = fir.load %[[TRIP_VAR_I_REF]] : !fir.ref ! CHECK: %[[C1_3:.*]] = arith.constant 1 : i32 Index: flang/test/Lower/infinite_loop.f90 =================================================================== --- flang/test/Lower/infinite_loop.f90 +++ flang/test/Lower/infinite_loop.f90 @@ -90,14 +90,17 @@ ! CHECK: %[[C10:.*]] = arith.constant 10 : i32 ! CHECK: %[[C10_INDEX:.*]] = fir.convert %[[C10]] : (i32) -> index ! CHECK: %[[C1_1:.*]] = arith.constant 1 : index -! CHECK: %[[J_FINAL:.*]] = fir.do_loop %[[J:.*]] = %[[C1_INDEX]] to %[[C10_INDEX]] step %[[C1_1]] -> index { -! CHECK: %[[J_I32:.*]] = fir.convert %[[J]] : (index) -> i32 -! CHECK: fir.store %[[J_I32]] to %[[J_REF]] : !fir.ref +! CHECK: %[[J_LB:.*]] = fir.convert %[[C1_INDEX]] : (index) -> i32 +! CHECK: %[[J_FINAL:.*]]:2 = fir.do_loop %[[J:[^ ]*]] = +! CHECK-SAME: %[[C1_INDEX]] to %[[C10_INDEX]] step %[[C1_1]] +! CHECK-SAME: iter_args(%[[J_IV:.*]] = %[[J_LB]]) -> (index, i32) { +! CHECK: fir.store %[[J_IV]] to %[[J_REF]] : !fir.ref ! CHECK: %[[J_NEXT:.*]] = arith.addi %[[J]], %[[C1_1]] : index -! CHECK: fir.result %[[J_NEXT]] : index +! CHECK: %[[J_STEPCAST:.*]] = fir.convert %[[C1_1]] : (index) -> i32 +! CHECK: %[[J_IVINC:.*]] = arith.addi %[[J_IV]], %[[J_STEPCAST]] : i32 +! CHECK: fir.result %[[J_NEXT]], %[[J_IVINC]] : index, i32 ! CHECK: } -! CHECK: %[[J_I32:.*]] = fir.convert %[[J_FINAL]] : (index) -> i32 -! CHECK: fir.store %[[J_I32]] to %[[J_REF]] : !fir.ref +! CHECK: fir.store %[[J_FINAL]]#1 to %[[J_REF]] : !fir.ref ! CHECK: cf.br ^[[BODY1]] ! CHECK: ^[[RETURN]]: ! CHECK: return Index: flang/test/Lower/loops.f90 =================================================================== --- flang/test/Lower/loops.f90 +++ flang/test/Lower/loops.f90 @@ -40,7 +40,7 @@ a(i,j,k) = a(i,j,k) + 1 enddo - ! CHECK-COUNT-3: fir.do_loop {{[^un]*}} -> index + ! CHECK-COUNT-3: fir.do_loop {{[^un]*}} -> (index, i32) asum = 0 do i=1,5 do j=1,5 Index: flang/test/Lower/loops2.f90 =================================================================== --- flang/test/Lower/loops2.f90 +++ flang/test/Lower/loops2.f90 @@ -15,12 +15,10 @@ ! CHECK: %[[VAL_0:.*]] = fir.address_of(@_QMtest_loop_varEi_pointer) : !fir.ref>> ! CHECK: %[[VAL_1:.*]] = fir.load %[[VAL_0]] : !fir.ref>> ! CHECK: %[[VAL_2:.*]] = fir.box_addr %[[VAL_1]] : (!fir.box>) -> !fir.ptr -! CHECK: fir.do_loop %[[VAL_9:.*]] = -! CHECK: %[[VAL_10:.*]] = fir.convert %[[VAL_9]] : (index) -> i32 -! CHECK: fir.store %[[VAL_10]] to %[[VAL_2]] : !fir.ptr +! CHECK: %[[VAL_9:.*]]:2 = fir.do_loop{{.*}}iter_args(%[[IV:.*]] = {{.*}}) +! CHECK: fir.store %[[IV]] to %[[VAL_2]] : !fir.ptr ! CHECK: } -! CHECK: %[[VAL_12:.*]] = fir.convert %[[VAL_13:.*]] : (index) -> i32 -! CHECK: fir.store %[[VAL_12]] to %[[VAL_2]] : !fir.ptr +! CHECK: fir.store %[[VAL_9]]#1 to %[[VAL_2]] : !fir.ptr end subroutine ! CHECK-LABEL: func @_QMtest_loop_varPtest_allocatable @@ -30,12 +28,10 @@ ! CHECK: %[[VAL_0:.*]] = fir.address_of(@_QMtest_loop_varEi_allocatable) : !fir.ref>> ! CHECK: %[[VAL_1:.*]] = fir.load %[[VAL_0]] : !fir.ref>> ! CHECK: %[[VAL_2:.*]] = fir.box_addr %[[VAL_1]] : (!fir.box>) -> !fir.heap -! CHECK: fir.do_loop %[[VAL_9:.*]] = -! CHECK: %[[VAL_10:.*]] = fir.convert %[[VAL_9]] : (index) -> i32 -! CHECK: fir.store %[[VAL_10]] to %[[VAL_2]] : !fir.heap +! CHECK: %[[VAL_9:.*]]:2 = fir.do_loop{{.*}}iter_args(%[[IV:.*]] = {{.*}}) +! CHECK: fir.store %[[IV]] to %[[VAL_2]] : !fir.heap ! CHECK: } -! CHECK: %[[VAL_12:.*]] = fir.convert %[[VAL_13:.*]] : (index) -> i32 -! CHECK: fir.store %[[VAL_12]] to %[[VAL_2]] : !fir.heap +! CHECK: fir.store %[[VAL_9]]#1 to %[[VAL_2]] : !fir.heap end subroutine ! CHECK-LABEL: func @_QMtest_loop_varPtest_real_pointer Index: flang/test/Lower/mixed_loops.f90 =================================================================== --- flang/test/Lower/mixed_loops.f90 +++ flang/test/Lower/mixed_loops.f90 @@ -90,20 +90,23 @@ ! CHECK-DAG: %[[C13_I32:.*]] = arith.constant 13 : i32 ! CHECK-DAG: %[[C13:.*]] = fir.convert %[[C13_I32]] : (i32) -> index ! CHECK-DAG: %[[C1:.*]] = arith.constant 1 : index - ! CHECK: %[[RESULT:.*]] = fir.do_loop %[[IDX:.*]] = %[[C8]] to %[[C13]] step %[[C1]] -> index { - ! CHECK: %[[I32:.*]] = fir.convert %[[IDX]] : (index) -> i32 - ! CHECK: fir.store %[[I32]] to %[[I_REF]] : !fir.ref + ! CHECK: %[[I_LB:.*]] = fir.convert %[[C8]] : (index) -> i32 + ! CHECK: %[[RESULT:.*]]:2 = fir.do_loop %[[IDX:[^ ]*]] = + ! CHECK-SAME: %[[C8]] to %[[C13]] step %[[C1]] + ! CHECK-SAME: iter_args(%[[I_IV:.*]] = %[[I_LB]]) -> (index, i32) { + ! CHECK: fir.store %[[I_IV]] to %[[I_REF]] : !fir.ref ! CHECK-DAG: %[[J2:.*]] = fir.load %[[J_REF]] : !fir.ref ! CHECK-DAG: %[[C2:.*]] = arith.constant 2 : i32 ! CHECK: %[[JINC:.*]] = arith.muli %[[C2]], %[[J2]] : i32 ! CHECK: fir.store %[[JINC]] to %[[J_REF]] : !fir.ref ! CHECK: %[[IINC:.*]] = arith.addi %[[IDX]], %[[C1]] : index - ! CHECK: fir.result %[[IINC]] : index + ! CHECK: %[[I_STEPCAST:.*]] = fir.convert %[[C1]] : (index) -> i32 + ! CHECK: %[[I_IVINC:.*]] = arith.addi %[[I_IV]], %[[I_STEPCAST]] : i32 + ! CHECK: fir.result %[[IINC]], %[[I_IVINC]] : index, i32 do i=8,13 j=j*2 - ! CHECK: %[[IFINAL:.*]] = fir.convert %[[RESULT]] : (index) -> i32 - ! CHECK: fir.store %[[IFINAL]] to %[[I_REF]] : !fir.ref + ! CHECK: fir.store %[[RESULT]]#1 to %[[I_REF]] : !fir.ref end do ! CHECK: br ^[[HDR1]]