diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-06-17 04:14:07 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-06-17 04:14:07 +0000 |
| commit | 5cd641ccc76c036e87752164a31c45b6a2743db9 (patch) | |
| tree | 81fe7e51274a7e4d9d91def0961ef1aca5e7d2b4 /libgfortran | |
| parent | ebc75411acc31abb0987c1767e62226a5afcadbd (diff) | |
| download | gcc-5cd641ccc76c036e87752164a31c45b6a2743db9.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136859 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -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 f5b6a2731c0..15706c1934b 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 01e118f5f48..ffa23693a86 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; |