diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-06-17 04:14:07 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-06-17 04:14:07 +0000 |
| commit | fb669c2b42b2dce32ca7d3f33c17780c601be13f (patch) | |
| tree | 81fe7e51274a7e4d9d91def0961ef1aca5e7d2b4 | |
| parent | 151d7522247c10ac4959f72883316943d5060bf9 (diff) | |
| download | gcc-fb669c2b42b2dce32ca7d3f33c17780c601be13f.zip gcc-fb669c2b42b2dce32ca7d3f33c17780c601be13f.tar.gz gcc-fb669c2b42b2dce32ca7d3f33c17780c601be13f.tar.bz2 | |
re PR libfortran/36546 (Namelist error with tab following a comma and newline)
2008-06-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/36546
* io/list_read.c (eat_separator): Add tab character to condition
for looping past whitespace.
From-SVN: r136859
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index f5b6a27..15706c1 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2008-06-16 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/36546 + * io/list_read.c (eat_separator): Add tab character to condition + for looping past whitespace. + 2008-06-14 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR fortran/36515 diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 01e118f..ffa2369 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -366,7 +366,7 @@ eat_separator (st_parameter_dt *dtp) } } } - while (c == '\n' || c == '\r' || c == ' '); + while (c == '\n' || c == '\r' || c == ' ' || c == '\t'); unget_char (dtp, c); } break; |