This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/36582] Namelist I/O error: Bogus "Cannot match namelist object"
- From: "jvdelisle at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 22 Jul 2008 05:02:56 -0000
- Subject: [Bug fortran/36582] Namelist I/O error: Bogus "Cannot match namelist object"
- References: <bug-36582-16157@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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