[all-commits] [llvm/llvm-project] 06b314: [flang][runtime] Clear last record in internal WRI...

[Peter Klausler via All-commits]

  Branch: refs/heads/main
  Home:   https://github.com/llvm/llvm-project
  Commit: 06b3144c3f533c82ee9ae6afa68ff41566eb2df5
      https://github.com/llvm/llvm-project/commit/06b3144c3f533c82ee9ae6afa68ff41566eb2df5
  Author: Peter Klausler <35819229+klausler at users.noreply.github.com>
  Date:   2023-12-11 (Mon, 11 Dec 2023)

  Changed paths:
    M flang/runtime/internal-unit.cpp

  Log Message:
  -----------
  [flang][runtime] Clear last record in internal WRITE even if nothing … (#74528)

…was written

At the end of an internal output statement, The I/O runtime fills (the
remainder of) the current record with blanks if it's the only record or
if anything had been written to it. This turns out to be wrong in the
case of a format that ends with an explicit advance to the next record,
which needs to be cleared even if nothing has been written.

Fixes llvm-test-suite/Fortran/gfortran/regression/arrayio_1.f90.