Lines Matching refs:subscripts

32     const Descriptor &descriptor, const SubscriptValue subscripts[]) {
33   A *p{descriptor.Element<A>(subscripts)};
36                                  "address or subscripts out of range");
51   SubscriptValue subscripts[maxRank];
52   descriptor.GetLowerBounds(subscripts);
57       IntType &x{ExtractElement<IntType>(io, descriptor, subscripts)};
70       if (!descriptor.IncrementSubscripts(subscripts) && j + 1 < numElements) {
72             "FormattedIntegerIO: subscripts out of bounds");
85   SubscriptValue subscripts[maxRank];
86   descriptor.GetLowerBounds(subscripts);
91       RawType &x{ExtractElement<RawType>(io, descriptor, subscripts)};
103       if (!descriptor.IncrementSubscripts(subscripts) && j + 1 < numElements) {
105             "FormattedRealIO: subscripts out of bounds");
118   SubscriptValue subscripts[maxRank];
119   descriptor.GetLowerBounds(subscripts);
125     RawType *x{&ExtractElement<RawType>(io, descriptor, subscripts)};
154     if (!descriptor.IncrementSubscripts(subscripts) && j + 1 < numElements) {
156           "FormattedComplexIO: subscripts out of bounds");
166   SubscriptValue subscripts[maxRank];
167   descriptor.GetLowerBounds(subscripts);
172     A *x{&ExtractElement<A>(io, descriptor, subscripts)};
194     if (!descriptor.IncrementSubscripts(subscripts) && j + 1 < numElements) {
196           "FormattedCharacterIO: subscripts out of bounds");
206   SubscriptValue subscripts[maxRank];
207   descriptor.GetLowerBounds(subscripts);
212     IntType &x{ExtractElement<IntType>(io, descriptor, subscripts)};
236     if (!descriptor.IncrementSubscripts(subscripts) && j + 1 < numElements) {
238           "FormattedLogicalIO: subscripts out of bounds");
279     const NonTbpDefinedIoTable *table, const SubscriptValue subscripts[]) {
291             io, component, descriptor, subscripts, handler, table)) {
311   SubscriptValue subscripts[maxRank];
312   descriptor.GetLowerBounds(subscripts);
314        ++j, descriptor.IncrementSubscripts(subscripts)) {
322               io, component, descriptor, subscripts, handler, table)) {
369   SubscriptValue subscripts[maxRank];
370   descriptor.GetLowerBounds(subscripts);
373        ++j, descriptor.IncrementSubscripts(subscripts)) {
376       result = DefinedFormattedIo(io, descriptor, *type, *special, subscripts);
380           io, descriptor, *type, table, subscripts);
460     SubscriptValue subscripts[maxRank];
461     descriptor.GetLowerBounds(subscripts);
477       char &x{ExtractElement<char>(io, descriptor, subscripts)};
481         char &x{ExtractElement<char>(io, descriptor, subscripts)};
485         if (!descriptor.IncrementSubscripts(subscripts) &&
487           handler.Crash("DescriptorIO: subscripts out of bounds");