https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87907
--- Comment #4 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
On Tue, Jun 18, 2019 at 06:20:06PM +0000, kargl at gcc dot gnu.org wrote:
> This patch
>
> Index: gcc/fortran/resolve.c
> ===================================================================
> --- gcc/fortran/resolve.c (revision 272432)
> +++ gcc/fortran/resolve.c (working copy)
> @@ -583,6 +583,9 @@ resolve_contained_fntype (gfc_symbol *sym, gfc_namespa
> || sym->attr.entry_master)
> return;
>
> + if (!sym->result)
> + return;
> +
> /* Try to find out of what the return type is. */
> if (sym->result->ts.type == BT_UNKNOWN && sym->result->ts.interface ==
> NULL)
> {
>
Passes regression testing. I'll pack this later today.
