squiid/llvm
1
0
Fork 0
Code Issues Pull requests Activity

[flang][runtime] Accept "." as REAL input

Browse source 
".", possibly followed by an exponent, is a valid REAL input value (meaning zero).

Differential Revision: https://reviews.llvm.org/D124279
This commit is contained in:
Peter Klausler 2022-04-21 14:11:32 -07:00
parent c242e10c74
commit 839f0abdaa
1 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
flang/runtime/edit-input.cpp
View file

@ -186,7 +186,6 @@ static int ScanRealInput(char *buffer, int bufferSize, IoStatementState &io,
first == 'D' || first == 'Q') {
Put('.'); // input field is normalized to a fraction
auto start{got};
bool anyDigit{false};
for (; next; next = io.NextInField(remaining, edit)) {
char32_t ch{*next};
if (ch == ' ' || ch == '\t') {
@ -197,10 +196,8 @@ static int ScanRealInput(char *buffer, int bufferSize, IoStatementState &io,
}
}
if (ch == '0' && got == start && !decimalPoint) {
anyDigit = true;
// omit leading zeroes before the decimal
} else if (ch >= '0' && ch <= '9') {
anyDigit = true;
Put(ch);
} else if (ch == decimal && !decimalPoint) {
// the decimal point is *not* copied to the buffer
@ -210,11 +207,10 @@ static int ScanRealInput(char *buffer, int bufferSize, IoStatementState &io,
}
}
if (got == start) {
if (anyDigit) {
Put('0'); // emit at least one digit
} else {
return 0; // no digits, invalid input
}
// Nothing but zeroes and maybe a decimal point. F'2018 requires
// at least one digit, but F'77 did not, and a bare "." shows up in
// the FCVS suite.
Put('0'); // emit at least one digit
}
if (next &&
(*next == 'e' || *next == 'E' || *next == 'd' || *next == 'D' ||