@@ -666,7 +666,7 @@ template <typename BoundsOp, typename BoundsType>
666
666
llvm::SmallVector<mlir::Value>
667
667
genBaseBoundsOps (fir::FirOpBuilder &builder, mlir::Location loc,
668
668
Fortran::lower::AbstractConverter &converter,
669
- fir::ExtendedValue dataExv, mlir::Value baseAddr ) {
669
+ fir::ExtendedValue dataExv) {
670
670
mlir::Type idxTy = builder.getIndexType ();
671
671
mlir::Type boundTy = builder.getType <BoundsType>();
672
672
llvm::SmallVector<mlir::Value> bounds;
@@ -899,7 +899,7 @@ mlir::Value gatherDataOperandAddrAndBounds(
899
899
if (fir::unwrapRefType (baseAddr.getType ())
900
900
.isa <fir::SequenceType>())
901
901
bounds = genBaseBoundsOps<BoundsOp, BoundsType>(
902
- builder, operandLocation, converter, compExv, baseAddr );
902
+ builder, operandLocation, converter, compExv);
903
903
asFortran << (*expr).AsFortran ();
904
904
905
905
if (auto loadOp = mlir::dyn_cast_or_null<fir::LoadOp>(
@@ -949,7 +949,7 @@ mlir::Value gatherDataOperandAddrAndBounds(
949
949
if (fir::unwrapRefType (baseAddr.getType ())
950
950
.isa <fir::SequenceType>())
951
951
bounds = genBaseBoundsOps<BoundsOp, BoundsType>(
952
- builder, operandLocation, converter, dataExv, baseAddr );
952
+ builder, operandLocation, converter, dataExv);
953
953
asFortran << name.ToString ();
954
954
} else { // Unsupported
955
955
llvm::report_fatal_error (
0 commit comments