------- Comment #2 from pault at gcc dot gnu dot org 2007-04-02 12:51 ------- To my amazement, the brute force:
Index: gcc/fortran/trans-decl.c =================================================================== *** gcc/fortran/trans-decl.c (révision 122688) --- gcc/fortran/trans-decl.c (copie de travail) *************** gfc_get_symbol_decl (gfc_symbol * sym) *** 874,879 **** --- 874,880 ---- int byref; gcc_assert (sym->attr.referenced + || sym->attr.use_assoc || sym->ns->proc_name->attr.if_source == IFSRC_IFBODY); if (sym->ns && sym->ns->proc_name->attr.function) fixes the problem. I have just set it regtesting. Paul -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31424