------- Comment #1 from pault at gcc dot gnu dot org 2009-12-17 05:41 ------- Confirmed.
This is where it comes from: Index: gcc/fortran/trans-decl.c =================================================================== *** gcc/fortran/trans-decl.c (revision 155192) --- gcc/fortran/trans-decl.c (working copy) *************** build_function_decl (gfc_symbol * sym) *** 1644,1653 **** if (DECL_CONTEXT (fndecl) == NULL_TREE && !sym->attr.entry_master && !sym->attr.is_main_program) TREE_PUBLIC (fndecl) = 1; ! /* TREE_STATIC means the function body is defined here. */ TREE_STATIC (fndecl) = 1; ! /* Set attributes for PURE functions. A call to a PURE function in the Fortran 95 sense is both pure and without side effects in the C sense. */ --- 1644,1653 ---- if (DECL_CONTEXT (fndecl) == NULL_TREE && !sym->attr.entry_master && !sym->attr.is_main_program) TREE_PUBLIC (fndecl) = 1; ! #if 0 /* TREE_STATIC means the function body is defined here. */ TREE_STATIC (fndecl) = 1; ! #endif /* Set attributes for PURE functions. A call to a PURE function in the Fortran 95 sense is both pure and without side effects in the C sense. */ Paul -- pault at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Ever Confirmed|0 |1 Last reconfirmed|0000-00-00 00:00:00 |2009-12-17 05:41:16 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42122