OSDN Git Service

2010-09-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 14 Sep 2010 04:37:02 +0000 (04:37 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 14 Sep 2010 04:37:02 +0000 (04:37 +0000)
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

libgfortran/ChangeLog
libgfortran/io/list_read.c

index d690be1..bd4243f 100644 (file)
@@ -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.
index d757b1c..b3c1cf6 100644 (file)
@@ -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);