[Patch, Fortran] ICE with PROCEDURE using a complicated interface (PR36322 & PR36275)

[Tobias Burnus]

Janus Weil wrote:
> This actually won't work since the added line overwrites
> "sym->ts.interface" (which then will be NULL), but the three following
> lines depend on it.
>   
Ups.

> What do you think about the last version that I sent before
> (pr36322_v2.diff)? I think it should do what we need, and I have
> already regtested it succesfully.
>   
That version is OK (together with the two test cases). However,

> +++ gcc/fortran/resolve.c	(working copy)
> @@ -7847,6 +7847,7 @@ resolve_symbol (gfc_symbol *sym)
>    gfc_symtree *this_symtree;
>    gfc_namespace *ns;
>    gfc_component *c;
> +  gfc_symbol *ifc;
>   
that added line should be moved to ...


> @@ -7893,11 +7894,12 @@ resolve_symbol (gfc_symbol *sym)
>        /* Get the attributes from the interface (now resolved).  */
>        if (sym->ts.interface->attr.if_source ||
> sym->ts.interface->attr.intrinsic)
>  	{
>   
... here.

Tobias