205       resultShape.push_back(static_cast<ConstantSubscript>(ss.size()));  in ApplySubscripts()
513       auto len{static_cast<ConstantSubscript>(  in FoldElementalIntrinsicHelper()
618       ConstantSubscript &dimIndex{arrayAt[zbDim]};  in CSHIFT()
619       ConstantSubscript dimLB{dimIndex}; // initial value  in CSHIFT()
620       ConstantSubscript dimExtent{array->shape()[zbDim]};  in CSHIFT()
623         ConstantSubscript origDimIndex{dimIndex};  in CSHIFT()
633         ConstantSubscript shiftCount{shift->At(shiftAt).ToInt64()};  in CSHIFT()
726       ConstantSubscript &dimIndex{arrayAt[zbDim]};  in EOSHIFT()
727       ConstantSubscript dimLB{dimIndex}; // initial value  in EOSHIFT()
728       ConstantSubscript dimExtent{array->shape()[zbDim]};  in EOSHIFT()
735         ConstantSubscript origDimIndex{dimIndex};  in EOSHIFT()
745         ConstantSubscript shiftCount{shift->At(shiftAt).ToInt64()};  in EOSHIFT()
797   ConstantSubscript arrayElements{GetSize(array->shape())};  in PACK()
798   ConstantSubscript truths{0};  in PACK()
808     for (ConstantSubscript j{0}; j < arrayElements;  in PACK()
817   ConstantSubscript resultSize{truths};  in PACK()
828   for (ConstantSubscript j{0}; j < truths;) {  in PACK()
839     for (ConstantSubscript j{truths}; j < resultSize; ++j) {  in PACK()
845       ConstantSubscripts{static_cast<ConstantSubscript>(resultSize)})};  in PACK()
853   std::optional<std::vector<ConstantSubscript>> shape{  in RESHAPE()
854       GetIntegerVector<ConstantSubscript>(args[1])};  in RESHAPE()
954   for (ConstantSubscript j{0}; j < matrix->shape()[0]; ++j) {  in TRANSPOSE()
956     for (ConstantSubscript k{0}; k < matrix->shape()[1]; ++k) {  in TRANSPOSE()
983   ConstantSubscript maskElements{GetSize(mask->shape())};  in UNPACK()
984   ConstantSubscript truths{0};  in UNPACK()
986   for (ConstantSubscript j{0}; j < maskElements;  in UNPACK()
1002   for (ConstantSubscript j{0}; j < maskElements; ++j) {  in UNPACK()
1169       auto n{static_cast<ConstantSubscript>(elements_.size())};  in FoldArray()
1175         if (std::optional<ConstantSubscript> lengthValue{ToInt64(length)}) {  in FoldArray()
1213     std::optional<ConstantSubscript> start{ToInt64(lower)}, end{ToInt64(upper)},  in FoldArray()
1217       ConstantSubscript &j{context_.StartImpliedDo(iDo.name(), *start)};  in FoldArray()