------- Comment #12 from jvdelisle at gcc dot gnu dot org 2008-07-22 05:02
-------
Finally had some quiet time to pick at this. Yep, a one liner. This fixes the
test case and no namelist regressions.
Index: list_read.c
===================================================================
--- list_read.c (revision 138020)
+++ list_read.c (working copy)
@@ -2791,7 +2791,7 @@ get_name:
if (nl->type == GFC_DTYPE_DERIVED)
nml_touch_nodes (nl);
- if (component_flag)
+ if (component_flag && nl->var_rank > 0)
nl = first_nl;
/* Make sure no extraneous qualifiers are there. */
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36582
