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

[mikael at gcc dot gnu.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);

        }