[Bug fortran/36582] Namelist I/O error: Bogus "Cannot match namelist object"

["fmuldoo at me dot lsu dot edu" <gcc-bugzilla at gcc dot gnu dot org>]

------- 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