re PR libfortran/36538 (namelist failure with tabs preceding object name)

2008-06-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/36538
	* io/list_read.c (namelist_read): Add eat_separator to eliminate leading
	tabs.

From-SVN: r136776

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 28f1c0ae9b5309799e642fbcc06d736a8208c59c..0966d4874576df27a7e6a1297c6de4a921572b7a 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-06-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/36538
+       * io/list_read.c (namelist_read): Add eat_separator to eliminate leading
+       tabs.
+
 2008-06-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR fortran/35863

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index c99e3a8c23b5314bd16ffba35b57af1768a03fbc..01e118f5f48d2abc19007d68db5dcbd1aa7858e3 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -2922,6 +2922,8 @@ find_nml_name:
       goto find_nml_name;
     }
 
+  eat_separator (dtp);
+
   /* Ready to read namelist objects.  If there is an error in input
      from stdin, output the error message and continue.  */