[flang][runtime] BACKSPACE after non-advancing I/O
authorPeter Klausler <pklausler@nvidia.com>
Thu, 28 Apr 2022 23:54:40 +0000 (16:54 -0700)
committerPeter Klausler <pklausler@nvidia.com>
Mon, 9 May 2022 20:00:41 +0000 (13:00 -0700)
commit72831a592edf1bdcca15354181867079a17d4f76
treea6c506e1b3fde003f03b52e860917e2146718364
parent28b5e99a4c84f687b4c43c46a293e9f4b4cf6986
[flang][runtime] BACKSPACE after non-advancing I/O

A BACKSPACE statement on a unit after a READ or WRITE with ADVANCE="NO"
must reset the position to the beginning of the record, not to the
beginning of the previous one.

Differential Revision: https://reviews.llvm.org/D125057
flang/runtime/io-stmt.cpp
flang/runtime/unit.cpp