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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136776 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 28f1c0a..0966d48 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,5 +1,11 @@
 2008-06-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 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
        * libgfortran.h: Change l8_to_l4_offset to big_endian and add endian_off.
        * runtime/main.c: Fix error in comment. Change l8_to_l4_offset to
        PR fortran/35863
        * libgfortran.h: Change l8_to_l4_offset to big_endian and add endian_off.
        * runtime/main.c: Fix error in comment. Change l8_to_l4_offset to

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index c99e3a8..01e118f 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;
     }
 
       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.  */
 
   /* Ready to read namelist objects.  If there is an error in input
      from stdin, output the error message and continue.  */