diff options
| author | Bud Davis <bdavis9659@comcast.net> | 2004-12-15 12:42:39 +0000 |
|---|---|---|
| committer | Bud Davis <bdavis@gcc.gnu.org> | 2004-12-15 12:42:39 +0000 |
| commit | c8c83c1828de1ed0e3a3a2974a4b273be92fa79a (patch) | |
| tree | 4decd83caa2d58072b7195eff91b3b9f7a8e61e2 /libgfortran/io | |
| parent | 0aec601466c206f1d9180e928dc694a59e8a1972 (diff) | |
| download | gcc-c8c83c1828de1ed0e3a3a2974a4b273be92fa79a.zip gcc-c8c83c1828de1ed0e3a3a2974a4b273be92fa79a.tar.gz gcc-c8c83c1828de1ed0e3a3a2974a4b273be92fa79a.tar.bz2 | |
re PR libfortran/17597 (list directed read has error)
2004-12-15 Bud Davis <bdavis9659@comcast.net>
Steven G. Kargl <kargls@comcast.net>
PR fortran/17597
* io/list_read.c (read_real): do not push back a comma when
it delimits a real value without a decimal point
2004-12-15 Bud Davis <bdavis9659@comcast.net>
Steven G. Kargle <kargls@comcast.net>
PR fortran/17597
* gfortran.dg/list_read_3.f90: New test.
Co-Authored-By: Steven G. Kargl <kargls@comcast.net>
Co-Authored-By: Steven G. Kargl <kargls@comcast.net>
From-SVN: r92190
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/list_read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index cee5c74..4445de4 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -1043,7 +1043,7 @@ read_real (int length) goto got_repeat; CASE_SEPARATORS: - if (c != '\n') + if (c != '\n' && c != ',') unget_char (c); /* Real number that is just a digit-string. */ goto done; |