> 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.
Sadly, the testsuite regressions don't seems to be fixed. I will try to figure out tomorrow why the function is still being inlined. Honza > > 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 > >