From fb669c2b42b2dce32ca7d3f33c17780c601be13f Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 17 Jun 2008 04:14:07 +0000 Subject: [PATCH] re PR libfortran/36546 (Namelist error with tab following a comma and newline) 2008-06-16 Jerry DeLisle PR fortran/36546 * io/list_read.c (eat_separator): Add tab character to condition for looping past whitespace. From-SVN: r136859 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/list_read.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + PR fortran/36546 + * io/list_read.c (eat_separator): Add tab character to condition + for looping past whitespace. + 2008-06-14 Jerry DeLisle 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; -- 2.30.2