[flang-commits] [flang] [flang] Fix variable unformatted I/O bug with output after input (PR #92828)

[Slava Zakharin via flang-commits]

================
@@ -214,6 +214,13 @@ Iostat ExternalFileUnit::SetDirection(Direction direction) {
     }
   } else {
     if (mayWrite()) {
+      if (direction_ == Direction::Input) {
+        // Don't retain any input data from previous record, like a
+        // variable-length unformatted record footer, in the frame,
+        // since we're going start writing frames.
----------------
vzakhari wrote:

```suggestion
        // since we're going to start writing frames.
```

https://github.com/llvm/llvm-project/pull/92828