Skip to content

Commit 638f863

Browse files
authored
[flang][runtime] Account for missing READ(SIZE=) characters (#153967)
One of the two formatted real input paths was failing to call GotChar() to account for the characters that it consumes. Fixes #153830.
1 parent 9a7a16c commit 638f863

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

flang-rt/lib/runtime/edit-input.cpp

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -663,6 +663,7 @@ static RT_API_ATTRS bool TryFastPathRealDecimalInput(
663663
*reinterpret_cast<decimal::BinaryFloatingPointNumber<PRECISION> *>(n) =
664664
converted.binary;
665665
io.HandleRelativePosition(p - str);
666+
io.GotChar(p - str);
666667
// Set FP exception flags
667668
if (converted.flags != decimal::ConversionResultFlags::Exact) {
668669
RaiseFPExceptions(converted.flags);

0 commit comments

Comments
 (0)