aboutsummaryrefslogtreecommitdiff
path: root/flang-rt/lib/runtime/character.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'flang-rt/lib/runtime/character.cpp')
-rw-r--r--flang-rt/lib/runtime/character.cpp3
1 files changed, 2 insertions, 1 deletions
diff --git a/flang-rt/lib/runtime/character.cpp b/flang-rt/lib/runtime/character.cpp
index 0f9f419..c9ac557 100644
--- a/flang-rt/lib/runtime/character.cpp
+++ b/flang-rt/lib/runtime/character.cpp
@@ -428,7 +428,8 @@ static RT_API_ATTRS void GeneralCharFunc(Descriptor &result,
result.GetDimension(j).SetBounds(1, ub[j]);
}
if (result.Allocate(kNoAsyncObject) != CFI_SUCCESS) {
- terminator.Crash("SCAN/VERIFY: could not allocate storage for result");
+ terminator.Crash(
+ "INDEX/SCAN/VERIFY: could not allocate storage for result");
}
std::size_t stringElementChars{string.ElementBytes() >> shift<CHAR>};
std::size_t argElementChars{arg.ElementBytes() >> shift<CHAR>};