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



--- Comment #25 from janus at gcc dot gnu.org 2013-01-28 16:04:14 UTC ---

(In reply to comment #24)

> > Draft patch for comment #4, to be tested.

> 

> Thanks! Seems to work on comment 4 at least. I'll try a regtest.



Regtest went through cleanly, and it also works well for an 'indirect' case

like this:





contains



  subroutine s1 (arg1)

    procedure(s2) :: arg1

  end subroutine



  subroutine s2 (arg2)

    procedure(s1) :: arg2

  end subroutine



end

Reply via email to