[Bug fortran/44348] ICE in build_function_decl

[dfranke at gcc dot gnu dot org]

------- Comment #4 from dfranke at gcc dot gnu dot org  2010-06-12 17:47 -------
The patch below fixes the ICE in comment #2, but not the original report.

However, it also message-regresses on
FAIL: gfortran.dg/derived_function_interface_1.f90  -O   (test for errors, line
41)
FAIL: gfortran.dg/derived_function_interface_1.f90  -O   (test for errors, line
42)
FAIL: gfortran.dg/global_references_1.f90  -O  (test for excess errors)


Index: decl.c
===================================================================
--- decl.c      (revision 160638)
+++ decl.c      (working copy)
@@ -863,7 +863,6 @@ get_proc_name (const char *name, gfc_sym
         this is handled using gsymbols to register unique,globally
         accessible names.  */
       if (sym->attr.flavor != 0
-         && sym->attr.proc != 0
          && (sym->attr.subroutine || sym->attr.function)
          && sym->attr.if_source != IFSRC_UNKNOWN)
        gfc_error_now ("Procedure '%s' at %C is already defined at %L",


-- 


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