re PR fortran/45532 (gfortran namelist read error)

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.

From-SVN: r164266

libgfortran/ChangeLog

+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.

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);