| commit | 9469dc38b01b857a6bef8a57480a30ddba61647d | |
| author | Peter Klausler <35819229+klausler@users.noreply.github.com> | |
| Tue, 26 Dec 2023 23:44:31 +0000 (26 15:44 -0800) | ||
| committer | GitHub <noreply@github.com> | |
| Tue, 26 Dec 2023 23:44:31 +0000 (26 15:44 -0800) | ||
| tree | c9e2ca8940dc593413dd93568f807d0bc2debcf6 | treesnapshot (tar.gz zip) |
| parent | 7b50176805ff53994ab87bbce7c3b7840bbc85ab | commitdiff |
[flang][runtime] Handle unconsumed repeated list-directed input items (#75400)
If list-directed input contains a repeated item ("20*123.0") that is not
fully consumed by the READ statement's data item list, the end of that
READ statement was repositioning the input to the repeated value
("123.0"), leading to later confusion. Cancel the input item repetition
during EndIoStatement() processing to prevent this misbehavior.
Fixes llvm-test-suite/Fortran/gfortran/regression/list_read_4.f90.
If list-directed input contains a repeated item ("20*123.0") that is not
fully consumed by the READ statement's data item list, the end of that
READ statement was repositioning the input to the repeated value
("123.0"), leading to later confusion. Cancel the input item repetition
during EndIoStatement() processing to prevent this misbehavior.
Fixes llvm-test-suite/Fortran/gfortran/regression/list_read_4.f90.
| flang/runtime/connection.cpp | diffblobblamehistory | |
| flang/runtime/connection.h | diffblobblamehistory | |
| flang/runtime/io-stmt.cpp | diffblobblamehistory | |
| flang/runtime/io-stmt.h | diffblobblamehistory |