Lines Matching full:terminator
10 #include "terminator.h"
91 const Descriptor &y, const Terminator &terminator) { in Compare() argument
93 terminator, x.rank() == y.rank() || x.rank() == 0 || y.rank() == 0); in Compare()
102 terminator.Crash("Character array comparison: operands are not " in Compare()
121 terminator.Crash("Compare: could not allocate storage for result"); in Compare()
159 const Descriptor &string, const Terminator &terminator) { in AdjustLRHelper() argument
176 terminator.Crash("ADJUSTL/R: could not allocate storage for result"); in AdjustLRHelper()
188 Terminator terminator{sourceFile, sourceLine}; in AdjustLR() local
191 AdjustLRHelper<char, ADJUSTR>(result, string, terminator); in AdjustLR()
194 AdjustLRHelper<char16_t, ADJUSTR>(result, string, terminator); in AdjustLR()
197 AdjustLRHelper<char32_t, ADJUSTR>(result, string, terminator); in AdjustLR()
200 terminator.Crash("ADJUSTL/R: bad string type code %d", in AdjustLR()
215 const Terminator &terminator) { in LenTrim() argument
230 terminator.Crash("LEN_TRIM: could not allocate storage for result"); in LenTrim()
242 const Descriptor &string, int kind, const Terminator &terminator) { in LenTrimKind() argument
246 result, string, terminator); in LenTrimKind()
250 result, string, terminator); in LenTrimKind()
254 result, string, terminator); in LenTrimKind()
258 result, string, terminator); in LenTrimKind()
262 result, string, terminator); in LenTrimKind()
265 terminator.Crash( in LenTrimKind()
386 const Terminator &terminator) { in GeneralCharFunc() argument
412 terminator.Crash("SCAN/VERIFY: could not allocate storage for result"); in GeneralCharFunc()
444 int kind, const Terminator &terminator) { in GeneralCharFuncKind() argument
448 result, string, arg, back, terminator); in GeneralCharFuncKind()
452 result, string, arg, back, terminator); in GeneralCharFuncKind()
456 result, string, arg, back, terminator); in GeneralCharFuncKind()
460 result, string, arg, back, terminator); in GeneralCharFuncKind()
464 result, string, arg, back, terminator); in GeneralCharFuncKind()
467 terminator.Crash("not yet implemented: CHARACTER(KIND=%d) in " in GeneralCharFuncKind()
475 const Descriptor &x, const Terminator &terminator) { in MaxMinHelper() argument
476 RUNTIME_CHECK(terminator, in MaxMinHelper()
493 terminator.Crash("Character MAX/MIN: operands are not " in MaxMinHelper()
514 RUNTIME_CHECK(terminator, accumulator.Allocate() == CFI_SUCCESS); in MaxMinHelper()
535 Terminator terminator{sourceFile, sourceLine}; in MaxMin() local
536 RUNTIME_CHECK(terminator, accumulator.raw().type == x.raw().type); in MaxMin()
539 MaxMinHelper<char, ISMIN>(accumulator, x, terminator); in MaxMin()
542 MaxMinHelper<char16_t, ISMIN>(accumulator, x, terminator); in MaxMin()
545 MaxMinHelper<char32_t, ISMIN>(accumulator, x, terminator); in MaxMin()
548 terminator.Crash( in MaxMin()
558 Terminator terminator{sourceFile, sourceLine}; in RTDEF() local
559 RUNTIME_CHECK(terminator, in RTDEF()
570 terminator.Crash("Character array concatenation: operands are not " in RTDEF()
591 terminator.Crash( in RTDEF()
607 Terminator terminator{__FILE__, __LINE__}; in RTDEF() local
608 RUNTIME_CHECK(terminator, accumulator.rank() == 0); in RTDEF()
613 RUNTIME_CHECK(terminator, accumulator.Allocate() == CFI_SUCCESS); in RTDEF()
619 Terminator terminator{__FILE__, __LINE__}; in RTDEF() local
620 RUNTIME_CHECK(terminator, x.rank() == 0); in RTDEF()
621 RUNTIME_CHECK(terminator, y.rank() == 0); in RTDEF()
622 RUNTIME_CHECK(terminator, x.raw().type == y.raw().type); in RTDEF()
636 terminator.Crash("CharacterCompareScalar: bad string type code %d", in RTDEF()
659 Terminator terminator{__FILE__, __LINE__}; in RTDEF() local
660 RUNTIME_CHECK(terminator, x.raw().type == y.raw().type); in RTDEF()
663 Compare<char>(result, x, y, terminator); in RTDEF()
666 Compare<char16_t>(result, x, y, terminator); in RTDEF()
669 Compare<char32_t>(result, x, y, terminator); in RTDEF()
672 terminator.Crash("CharacterCompareScalar: bad string type code %d", in RTDEF()
720 Terminator terminator{sourceFile, sourceLine}; in RTDEF() local
724 result, string, substring, back, kind, terminator); in RTDEF()
728 result, string, substring, back, kind, terminator); in RTDEF()
732 result, string, substring, back, kind, terminator); in RTDEF()
735 terminator.Crash( in RTDEF()
752 Terminator terminator{sourceFile, sourceLine}; in RTDEF() local
755 LenTrimKind<char>(result, string, kind, terminator); in RTDEF()
758 LenTrimKind<char16_t>(result, string, kind, terminator); in RTDEF()
761 LenTrimKind<char32_t>(result, string, kind, terminator); in RTDEF()
764 terminator.Crash("LEN_TRIM: bad string type code %d", in RTDEF()
785 Terminator terminator{sourceFile, sourceLine}; in RTDEF() local
789 result, string, set, back, kind, terminator); in RTDEF()
793 result, string, set, back, kind, terminator); in RTDEF()
797 result, string, set, back, kind, terminator); in RTDEF()
800 terminator.Crash( in RTDEF()
807 Terminator terminator{sourceFile, sourceLine}; in RTDEF() local
809 terminator.Crash( in RTDEF()
816 terminator.Crash("REPEAT could not allocate storage for result"); in RTDEF()
826 Terminator terminator{sourceFile, sourceLine}; in RTDEF() local
844 terminator.Crash( in RTDEF()
849 RUNTIME_CHECK(terminator, result.Allocate() == CFI_SUCCESS); in RTDEF()
869 Terminator terminator{sourceFile, sourceLine}; in RTDEF() local
873 result, string, set, back, kind, terminator); in RTDEF()
877 result, string, set, back, kind, terminator); in RTDEF()
881 result, string, set, back, kind, terminator); in RTDEF()
884 terminator.Crash( in RTDEF()