diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-03-24 11:16:33 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-03-24 11:16:33 +0100 |
| commit | a73421c460287b7a1b9f0c35d9fe7eacd0e51832 (patch) | |
| tree | 2aa4fa65d4f5842c39a5a2a11f7d5736b63fad1a /libgfortran/io | |
| parent | b01819be5d7c47c4682dbb250c124e58bd2c1c9e (diff) | |
| download | gcc-a73421c460287b7a1b9f0c35d9fe7eacd0e51832.zip gcc-a73421c460287b7a1b9f0c35d9fe7eacd0e51832.tar.gz gcc-a73421c460287b7a1b9f0c35d9fe7eacd0e51832.tar.bz2 | |
re PR libfortran/56696 (Formatted (list-directed) input fails to signal end of record)
2013-03-24 Tobias Burnus <burnus@net-b.de>
PR fortran/56696
* io/list_read.c (read_real): Fix EOF diagnostic.
2013-03-24 Tobias Burnus <burnus@net-b.de>
PR fortran/56696
* gfortran.dg/eof_5.f90: New.
From-SVN: r197019
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/list_read.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index aa7c8c0..e7ae98f 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -1433,7 +1433,6 @@ read_real (st_parameter_dt *dtp, void * dest, int length) goto got_sign; CASE_SEPARATORS: - case EOF: unget_char (dtp, c); /* Single null. */ eat_separator (dtp); return; |