2010-09-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR libfortran/45532
	* io/list_read.c (nml_get_obj_data): Set first_nl if the previous
	is NULL.

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d690be1..bd4243f 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2010-09-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/45532
+       * io/list_read.c (nml_get_obj_data): Set first_nl if the previous
+       is NULL.
+
 2010-09-12  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        * intrinsics/pack_generic.c (pack): Add missing return and fix whitespace.

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index d757b1c..b3c1cf6 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -2757,10 +2757,11 @@ get_name:
          goto nml_err_ret;
        }
 
-      if (!component_flag)
+      if (*pprev_nl == NULL || !component_flag)
        first_nl = nl;
 
       root_nl = nl;
+
       component_flag = 1;
 
       c = next_char (dtp);