[Bug fortran/82866] [PDT] ICE in resolve_fl_derived0, at fortran/resolve.c:14004

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82866

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |jvdelisle at gcc dot gnu.org

--- Comment #5 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
(In reply to kargl from comment #4)
--- snip ---

If it passes regression testing, consider it approved.

> % svn diff resolve.c 
> Index: resolve.c
> ===================================================================
> --- resolve.c   (revision 254461)
> +++ resolve.c   (working copy)
> @@ -14001,13 +14001,19 @@ resolve_fl_derived0 (gfc_symbol *sym)
>      {
>        for (f = sym->formal; f; f = f->next)
>         {
> -         c = gfc_find_component (sym, f->sym->name, true, true, NULL);
> -         if (c == NULL)
> +         if (!f->sym)
>             {
>               gfc_error ("Parameterized type %qs does not have a component "
> +                        "at %L", sym->name, &sym->declared_at);
> +             return false;
> +           }
> +
> +         if (!gfc_find_component (sym, f->sym->name, true, true, NULL))
> +           {
> +             gfc_error ("Parameterized type %qs does not have a component "
>                          "corresponding to parameter %qs at %L", sym->name,
>                          f->sym->name, &sym->declared_at);
> -             break;
> +             return false;
>             }
>         }
>      }