Jan Hubicka wrote:
Thanks, I sent the patch for testing and lets see if it solves the
problem.
If the testsuite passes, and you intend to commit this, please add a FIXME.
Cheers,
- Tobi
Honza
Index: trans-decl.c
===================================================================
--- trans-decl.c (revision 127902)
+++ trans-decl.c (working copy)
@@ -1217,6 +1217,8 @@ build_function_decl (gfc_symbol * sym)
type = gfc_get_function_type (sym);
fndecl = build_decl (FUNCTION_DECL, gfc_sym_identifier (sym), type);
+ if (!sym->attr.contained)
+ DECL_UNINLINABLE (fndecl) = 1;
/* Perform name mangling if this is a top level or module procedure. */
if (current_function_decl == NULL_TREE)
I have neither built nor regtested this, and I won't be able to do it
in the next few days. If you feel like trying, please go ahead.
FX
