Lines Matching full:which
17 const Symbol &symbol, ConstantSubscript which) {
22 if (which > 0) {
34 if (which < GetSize(*extents)) {
35 result.Augment(*bytes * which);
48 const ArrayRef &x, ConstantSubscript which) {
59 result = FoldDesignator(x.base(), which);
60 which = 0;
83 auto quotient{which / value->size()};
84 auto remainder{which - value->size() * quotient};
91 which = quotient;
110 auto quotient{which / range};
111 auto remainder{which - range * quotient};
114 which = quotient;
130 if (which > 0) {
143 const Component &component, ConstantSubscript which) {
146 return FoldDesignator(comp, which);
150 if (base.Rank() == 0) { // A%X(:) - apply "which" to component
152 compResult = FoldDesignator(comp, which);
153 } else { // A(:)%X - apply "which" to base
154 baseResult = FoldDesignator(base, which);
169 const ComplexPart &z, ConstantSubscript which) {
170 if (auto result{FoldDesignator(z.complex(), which)}) {
182 const DataRef &dataRef, ConstantSubscript which) {
184 [&](const auto &x) { return FoldDesignator(x, which); }, dataRef.u);
188 const NamedEntity &entity, ConstantSubscript which) {
189 return entity.IsSymbol() ? FoldDesignator(entity.GetLastSymbol(), which)
190 : FoldDesignator(entity.GetComponent(), which);
199 const ProcedureDesignator &proc, ConstantSubscript which) {
202 return FoldDesignator(*component, which);
203 } else if (which > 0) {