[Bug fortran/86248] [7/8/9 Regression] LEN_TRIM in specification expression causes link failure

[anlauf at gmx dot de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=86248

--- Comment #4 from Harald Anlauf <anlauf at gmx dot de> ---
Some digging shows that the name mangling is done in trans-decl.c,
gfc_sym_mangled_identifier.  Strangely, the funny name mangling comes
from the component fn_result_spec being set in resolve.c, flag_fn_result_spec,
but only when darray_fixed is a PARAMETER.

The code in question was added by pault in rev. 243478:

243478      pault       if (!s->fn_result_spec
243478      pault         && s->attr.flavor == FL_PARAMETER)
243478      pault       {
243478      pault         /* Function contained in a module.... */
243478      pault         if (ns->proc_name && ns->proc_name->attr.flavor ==
FL_MODULE)
243478      pault           {
243478      pault             gfc_symtree *st;
243478      pault             s->fn_result_spec = 1;

Maybe he can shine some light on this.