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