[Bug fortran/47778] reading two arrays of structures from namelist fails

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47778

--- Comment #5 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2011-02-27 
07:39:37 UTC ---
Probable Patch, Regression testing:

Index: list_read.c
===================================================================
--- list_read.c    (revision 170492)
+++ list_read.c    (working copy)
@@ -3058,6 +3058,8 @@ find_nml_name:
         goto nml_err_ret;
       generate_error (&dtp->common, LIBERROR_READ_VALUE, nml_err_msg);
         }
+      if (prev_nl && prev_nl->var_rank == 0)
+    prev_nl = NULL;
     }

   free_saved (dtp);