diff options
| author | bdavis <bdavis@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-02-23 04:09:17 +0000 |
|---|---|---|
| committer | bdavis <bdavis@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-02-23 04:09:17 +0000 |
| commit | 9001661411499d40e8c8dd116eec16bc341fc6a6 (patch) | |
| tree | de14bff1e5b45413cca3b8e5f95bd35c6730e5ba /libgfortran | |
| parent | 2b4ca870dfbd7485bfdf85eda3710e8a1dd5e22e (diff) | |
| download | gcc-9001661411499d40e8c8dd116eec16bc341fc6a6.tar.gz | |
2004-02-22 Paul Thomas <paulthomas2@wannado.fr>
Bud Davis <bdavis@gfortran.org>
* io/list_read.c (read_real): Handle separators properly
in list directed read.
2005-02-22 Bud Davis <bdavis@gfortran.org>
* gfortran.dg/list_read_4.f90: new test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95436 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 39b835d5bc9..cdb0868cdb6 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2004-02-22 Paul Thomas <paulthomas2@wannado.fr> + Bud Davis <bdavis@gfortran.org> + + * io/list_read.c (read_real): Handle separators properly + in list directed read. + 2004-02-21 Bud Davis <bdavis@gfortran.org> PR fortran/20086 diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index eecc11491e3..74a6688b014 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -1052,8 +1052,6 @@ read_real (int length) goto got_repeat; CASE_SEPARATORS: - if (c != '\n' && c != ',') - unget_char (c); /* Real number that is just a digit-string. */ goto done; default: @@ -1164,8 +1162,6 @@ read_real (int length) break; CASE_SEPARATORS: - unget_char (c); - eat_separator (); goto done; default: @@ -1174,6 +1170,8 @@ read_real (int length) } done: + unget_char (c); + eat_separator (); push_char ('\0'); if (convert_real (value, saved_string, length)) return; |