diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2021-02-10 19:37:52 -0800 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2021-02-10 19:37:52 -0800 |
| commit | 19c023241020e3b6f5c38f47447bc0fcbe9fef5f (patch) | |
| tree | 3119bcfc0481a888ff9c1cb6e1e4d18ccff50ca0 /gcc | |
| parent | 27a804bc62805aedb1b097a00eb2c0059244680a (diff) | |
| download | gcc-19c023241020e3b6f5c38f47447bc0fcbe9fef5f.zip gcc-19c023241020e3b6f5c38f47447bc0fcbe9fef5f.tar.gz gcc-19c023241020e3b6f5c38f47447bc0fcbe9fef5f.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dollar_edit_descriptor_4.f | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/dollar_edit_descriptor_4.f b/gcc/testsuite/gfortran.dg/dollar_edit_descriptor_4.f new file mode 100644 index 0000000..c8453ce --- /dev/null +++ b/gcc/testsuite/gfortran.dg/dollar_edit_descriptor_4.f @@ -0,0 +1,16 @@ +! { dg-do run } +! { dg-options "-std=gnu" } +! PR98825 Test for fix of '$' edit descriptor. + character(30) :: line + 10 format (i3,$) + + open(10, status='scratch') + write (10,10) 1 + write (10,10) 2,3,4,5 +! Check the result. + line = 'abcdefg' + rewind(10) + read(10, '(a)') line + close(10) + if (line .ne. ' 1 2 3 4 5') call abort + end |