libgfortran: Fix unwanted end-of-record by checking if seen_dollar.
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Thu, 11 Feb 2021 03:37:52 +0000 (19:37 -0800)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Thu, 11 Feb 2021 03:37:52 +0000 (19:37 -0800)
commit19c023241020e3b6f5c38f47447bc0fcbe9fef5f
tree3119bcfc0481a888ff9c1cb6e1e4d18ccff50ca0
parent27a804bc62805aedb1b097a00eb2c0059244680a
libgfortran: Fix unwanted end-of-record by checking if seen_dollar.

libgfortran/ChangeLog:

PR libfortran/98825
* io/transfer.c (next_record_w): Insert check for seen_dollar and if
so, skip issueing next record.

gcc/testsuite/ChangeLog:

PR libfortran/98825
* gfortran.dg/dollar_edit_descriptor_4.f: New test.
gcc/testsuite/gfortran.dg/dollar_edit_descriptor_4.f [new file with mode: 0644]
libgfortran/io/transfer.c