diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d690be1ec613..bd4243f0828e 100644
--- 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 d757b1c4826d..b3c1cf6a89dc 100644
--- 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);