forked from OSchip/llvm-project
[flang][runtime] Fix REWIND after non-advancing data transfer
A REWIND of a unit that's in the middle of a record due to a READ or WRITE statement with ADVANCE='NO' needs to reset the left tab limit so that the next transfer takes place at the beginning of the first record. Differential Revision: https://reviews.llvm.org/D127783
This commit is contained in:
parent
c418d0f1be
commit
6963fb7dfb
|
@ -640,6 +640,7 @@ void ExternalFileUnit::Rewind(IoErrorHandler &handler) {
|
|||
} else {
|
||||
SetPosition(0, handler);
|
||||
currentRecordNumber = 1;
|
||||
leftTabLimit.reset();
|
||||
}
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue