1602           &con) {  in genArrayLit()  argument
1606         Fortran::evaluate::GetSize(con.shape());  in genArrayLit()
1607     fir::SequenceType::Shape shape(con.shape().begin(), con.shape().end());  in genArrayLit()
1610       eleTy = converter.genType(TC, KIND, {con.LEN()});  in genArrayLit()
1619       for (auto [lb, extent] : llvm::zip(con.lbounds(), shape)) {  in genArrayLit()
1626         mlir::Value len = builder.createIntegerConstant(loc, idxTy, con.LEN());  in genArrayLit()
1632     Fortran::evaluate::ConstantSubscripts subscripts = con.lbounds();  in genArrayLit()
1637             builder.getIntegerAttr(idxTy, subscripts[i] - con.lbounds()[i]));  in genArrayLit()
1644             fir::getBase(genScalarLit<KIND>(con.At(subscripts), con.LEN()));  in genArrayLit()
1647       } while (con.IncrementSubscripts(subscripts));  in genArrayLit()
1648       mlir::Value len = builder.createIntegerConstant(loc, idxTy, con.LEN());  in genArrayLit()
1655           genRawLit<TC, KIND>(con.At(subscripts));  in genArrayLit()
1661               fir::getBase(genScalarLit<TC, KIND>(con.At(subscripts))));  in genArrayLit()
1664         bool nextIsSame = con.IncrementSubscripts(nextSubscripts) &&  in genArrayLit()
1665                           con.At(subscripts) == con.At(nextSubscripts);  in genArrayLit()
1691       } while (con.IncrementSubscripts(subscripts));  in genArrayLit()
1697       const Fortran::evaluate::Constant<Fortran::evaluate::SomeDerived> &con) {  in genArrayLit()  argument
1701         Fortran::evaluate::GetSize(con.shape());  in genArrayLit()
1702     fir::SequenceType::Shape shape(con.shape().begin(), con.shape().end());  in genArrayLit()
1703     mlir::Type eleTy = converter.genType(con.GetType().GetDerivedTypeSpec());  in genArrayLit()
1708     for (auto [lb, extent] : llvm::zip(con.lbounds(), con.shape())) {  in genArrayLit()
1714     Fortran::evaluate::ConstantSubscripts subscripts = con.lbounds();  in genArrayLit()
1716       mlir::Value derivedVal = fir::getBase(genval(con.At(subscripts)));  in genArrayLit()
1718       for (auto [dim, lb] : llvm::zip(subscripts, con.lbounds()))  in genArrayLit()
1722     } while (con.IncrementSubscripts(subscripts));  in genArrayLit()
1729              &con) {  in genval()  argument
1730     if (con.Rank() > 0)  in genval()
1731       return genArrayLit(con);  in genval()
1733         opt = con.GetScalarValue();  in genval()
1736       return genScalarLit<KIND>(opt.value(), con.LEN());  in genval()
1742       const Fortran::evaluate::Constant<Fortran::evaluate::SomeDerived> &con) {  in genval()  argument
1743     if (con.Rank() > 0)  in genval()
1744       return genArrayLit(con);  in genval()
1745     if (auto ctor = con.GetScalarValue())  in genval()