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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f5b6a27..15706c1 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 01e118f..ffa2369 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;