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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f5b6a2731c0f4ffe9d3d0e3661ac67694f062453..15706c1934baf598514552708d8b3c2cec5418f2 100644 (file)
--- 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 01e118f5f48d2abc19007d68db5dcbd1aa7858e3..ffa23693a86d9d1b721ffd2d3fbf253fc8a1c0aa 100644 (file)
--- 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;