http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47710
--- Comment #3 from janus at gcc dot gnu.org 2011-09-10 08:47:40 UTC --- Another example test case (from PR37297): MODULE m IMPLICIT NONE TYPE t CONTAINS PROCEDURE, PASS :: proc1 PROCEDURE, NOPASS :: proc2 GENERIC :: gen => proc1, proc2 END TYPE CONTAINS SUBROUTINE proc1 (me) CLASS(t) :: me END SUBROUTINE SUBROUTINE proc2 () END SUBROUTINE END MODULE PROGRAM main USE m IMPLICIT NONE TYPE(t) :: myobj CALL myobj%gen () END PROGRAM main