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 | |
| 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')
| -rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 94fd030..6b331c6 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,10 @@ +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-14 Steve Ellcey <sje@cup.hp.com> * libgfortran/io/transfer.c (us_read): Use memcpy/memset 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; |