Lines Matching refs:terminator
89 const Descriptor &result, Terminator &terminator) { in DefaultInitialize() argument
92 terminator, catAndKind && catAndKind->first != TypeCategory::Derived); in DefaultInitialize()
109 terminator.Crash("not yet implemented: EOSHIFT: CHARACTER kind %d", kind); in DefaultInitialize()
118 Terminator &terminator, const char *function) { in AllocateResult() argument
130 terminator.Crash( in AllocateResult()
141 Terminator terminator{sourceFile, line}; in RTNAME() local
143 RUNTIME_CHECK(terminator, rank > 1); in RTNAME()
145 terminator.Crash( in RTNAME()
148 ShiftControl shiftControl{shift, terminator, dim}; in RTNAME()
152 AllocateResult(result, source, rank, extent, terminator, "CSHIFT"); in RTNAME()
174 CopyElement(result, resultAt, source, sourceAt, terminator); in RTNAME()
186 Terminator terminator{sourceFile, line}; in RTNAME() local
187 RUNTIME_CHECK(terminator, source.rank() == 1); in RTNAME()
190 AllocateResult(result, source, 1, &extent, terminator, "CSHIFT"); in RTNAME()
198 CopyElement(result, &resultAt, source, &sourceAt, terminator); in RTNAME()
206 Terminator terminator{sourceFile, line}; in RTNAME() local
209 RUNTIME_CHECK(terminator, rank > 1); in RTNAME()
211 terminator.Crash( in RTNAME()
215 AllocateResult(result, source, rank, extent, terminator, "EOSHIFT")}; in RTNAME()
219 RUNTIME_CHECK(terminator, boundaryRank == 0 || boundaryRank == rank - 1); in RTNAME()
220 RUNTIME_CHECK(terminator, boundary->type() == source.type()); in RTNAME()
222 terminator.Crash("EOSHIFT: BOUNDARY= has element byte length %zd, but " in RTNAME()
231 terminator.Crash("EOSHIFT: BOUNDARY= has extent %jd on dimension " in RTNAME()
241 ShiftControl shiftControl{shift, terminator, dim}; in RTNAME()
248 DefaultInitialize(result, terminator); in RTNAME()
269 CopyElement(result, resultAt, source, sourceAt, terminator); in RTNAME()
271 CopyElement(result, resultAt, *boundary, boundaryAt, terminator); in RTNAME()
286 Terminator terminator{sourceFile, line}; in RTNAME() local
287 RUNTIME_CHECK(terminator, source.rank() == 1); in RTNAME()
290 AllocateResult(result, source, 1, &extent, terminator, "EOSHIFT")}; in RTNAME()
292 RUNTIME_CHECK(terminator, boundary->rank() == 0); in RTNAME()
293 RUNTIME_CHECK(terminator, boundary->type() == source.type()); in RTNAME()
295 terminator.Crash("EOSHIFT: BOUNDARY= has element byte length %zd but " in RTNAME()
301 DefaultInitialize(result, terminator); in RTNAME()
307 CopyElement(result, &j, source, &sourceAt, terminator); in RTNAME()
309 CopyElement(result, &j, *boundary, 0, terminator); in RTNAME()
318 Terminator terminator{sourceFile, line}; in RTNAME() local
319 CheckConformability(source, mask, terminator, "PACK", "ARRAY=", "MASK="); in RTNAME()
322 terminator, maskType && maskType->first == TypeCategory::Logical); in RTNAME()
340 RUNTIME_CHECK(terminator, vector->rank() == 1); in RTNAME()
341 RUNTIME_CHECK(terminator, source.type() == vector->type()); in RTNAME()
343 terminator.Crash("PACK: SOURCE= has element byte length %zd, but VECTOR= " in RTNAME()
349 terminator.Crash("PACK: VECTOR= has extent %jd but there are %jd MASK= " in RTNAME()
355 AllocateResult(result, source, 1, &extent, terminator, "PACK"); in RTNAME()
361 CopyElement(result, &resultAt, source, sourceAt, terminator); in RTNAME()
371 CopyElement(result, &resultAt, source, sourceAt, terminator); in RTNAME()
382 CopyElement(result, &resultAt, *vector, &vectorAt, terminator); in RTNAME()
393 Terminator terminator{sourceFile, line}; in RTNAME() local
394 RUNTIME_CHECK(terminator, shape.rank() == 1); in RTNAME()
395 RUNTIME_CHECK(terminator, shape.type().IsInteger()); in RTNAME()
398 terminator.Crash( in RTNAME()
410 shape.Element<char>(&shapeSubscript), shapeElementBytes, terminator); in RTNAME()
412 terminator.Crash("RESHAPE: bad value for SHAPE(%d)=%jd", j + 1, in RTNAME()
425 terminator.Crash( in RTNAME()
430 terminator.Crash("RESHAPE: PAD= has element byte length %zd but SOURCE= " in RTNAME()
440 RUNTIME_CHECK(terminator, order->rank() == 1); in RTNAME()
441 RUNTIME_CHECK(terminator, order->type().IsInteger()); in RTNAME()
443 terminator.Crash("RESHAPE: the extent of ORDER (%jd) must match the rank" in RTNAME()
453 terminator)}; in RTNAME()
455 terminator.Crash("RESHAPE: bad value for ORDER element (%jd)", in RTNAME()
469 result, source, resultRank, resultExtent, terminator, "RESHAPE"); in RTNAME()
479 CopyElement(result, resultSubscript, source, sourceSubscript, terminator); in RTNAME()
488 CopyElement(result, resultSubscript, *pad, padSubscript, terminator); in RTNAME()
498 Terminator terminator{sourceFile, line}; in RTNAME() local
500 RUNTIME_CHECK(terminator, rank <= maxRank); in RTNAME()
502 terminator.Crash("SPREAD: DIM=%d argument for rank-%d source array " in RTNAME()
512 AllocateResult(result, source, rank, extent, terminator, "SPREAD"); in RTNAME()
522 CopyElement(result, resultAt, source, sourceAt, terminator); in RTNAME()
532 Terminator terminator{sourceFile, line}; in RTNAME() local
533 RUNTIME_CHECK(terminator, matrix.rank() == 2); in RTNAME()
536 AllocateResult(result, matrix, 2, extent, terminator, "TRANSPOSE"); in RTNAME()
544 CopyElement(result, resultAt, matrix, matrixAt, terminator); in RTNAME()
552 Terminator terminator{sourceFile, line}; in RTNAME() local
553 RUNTIME_CHECK(terminator, vector.rank() == 1); in RTNAME()
555 RUNTIME_CHECK(terminator, rank > 0); in RTNAME()
558 CheckConformability(mask, field, terminator, "UNPACK", "MASK=", "FIELD="); in RTNAME()
560 AllocateResult(result, field, rank, extent, terminator, "UNPACK")}; in RTNAME()
561 RUNTIME_CHECK(terminator, vector.type() == field.type()); in RTNAME()
563 terminator.Crash( in RTNAME()
579 terminator.Crash( in RTNAME()
584 CopyElement(result, resultAt, vector, &vectorAt, terminator); in RTNAME()
587 CopyElement(result, resultAt, field, fieldAt, terminator); in RTNAME()