[Bug fortran/54107] [4.8 Regression] Memory hog with abstract interface

["mikael at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54107

--- Comment #13 from Mikael Morin <mikael at gcc dot gnu.org> 2013-01-25 20:58:10 UTC ---
(In reply to comment #12)
> Here is an updated version of Mikael's patch, which is free of testsuite
> regressions.

Indeed, it was not that difficult after all. :-)
Are procedure dummy arguments mutually exclusive with non-NULL procedure
interface, so that there is no dummy ambiguity in the array spec and char
length?

> 
> It fixes comment #0, but fails with a very strange backtrace on comment 4:

It seems to be an infinite recursion in gfc_get_function_type:

gfc_get_function_type (gfc_symbol * sym)
{
  [...]
  for (f = gfc_sym_get_dummy_args (sym); f; f = f->next)
    {
      arg = f->sym;
      if (arg)
    {
          [...]
      if (arg->attr.flavor == FL_PROCEDURE)
        {
          type = gfc_get_function_type (arg);
          type = build_pointer_type (type);
        }