Someone has caused regressions in gfortran

[Tobias Schlüter]

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
>