[Bug fortran/57435] [4.8/4.9 Regression] Ice on invalid: check_for_ambiguous

[dominiq at lps dot ens.fr]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57435

--- Comment #4 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
The following patch restores the 4.7 behavior:

--- ../_clean/gcc/fortran/module.c    2013-04-17 12:21:20.000000000 +0200
+++ gcc/fortran/module.c    2013-05-27 21:55:20.000000000 +0200
@@ -4532,7 +4532,7 @@ check_for_ambiguous (gfc_symbol *st_sym,
   module_locus locus;
   symbol_attribute attr;

-  if (st_sym->name == gfc_current_ns->proc_name->name)
+  if (gfc_current_ns->proc_name && st_sym->name ==
gfc_current_ns->proc_name->name)
     {
       gfc_error ("'%s' of module '%s', imported at %C, is also the name of the
"
          "current program unit", st_sym->name, module_name);