From fb4a20d95983d4c6548cf559ab3021f67671b5e4 Mon Sep 17 00:00:00 2001 From: Mark Eggleston Date: Thu, 25 Jun 2020 05:16:50 +0100 Subject: Fortran : ICE in generic_correspondence PR95584 Output an error for ambiguous interfaces in generic interface instead of ICE. 2020-07-02 Steven G. Kargl gcc/fortran/ PR fortran/95584 * interface.c (generic_correspondence): Only use the pointer to a symbol if exists. 2020-07-02 Mark Eggleston gcc/testsuite/ PR fortran/95584 * gfortran.dg/pr95584.f90: New test. --- gcc/fortran/interface.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/interface.c') diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index b1a75a3..0cc504f 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -1257,7 +1257,7 @@ generic_correspondence (gfc_formal_arglist *f1, gfc_formal_arglist *f2, while (f1) { - if (f1->sym->attr.optional) + if (!f1->sym || f1->sym->attr.optional) goto next; if (p1 && strcmp (f1->sym->name, p1) == 0) -- cgit v1.1