------- Comment #13 from fmuldoo at me dot lsu dot edu 2008-07-22 22:54 -------
Subject: Re: Namelist I/O error: Bogus "Cannot match
namelist object"
Great, and thanks very much. I'm very glad you found it as it is the
only thing preventing me from using gfortran with my code. This is the
first time I have reported anything here and do not know the procedure
of how fixes such as this make it into packages that one can download.
Thanks again,
Frank
On Tue, 2008-07-22 at 05:02 +0000, jvdelisle at gcc dot gnu dot org
wrote:
>
> ------- 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
