------- Comment #16 from janus at gcc dot gnu dot org 2010-04-22 20:58 ------- For completeness, here is a reduced/modified version of the original test case in comment #1:
module mod_A type :: t1 contains procedure,nopass :: fun end type contains logical function fun() end function end module module mod_B use mod_A type, extends(t1) :: t2 contains procedure :: sub1 end type contains subroutine sub1(a) class(t2) :: a end subroutine end module module mod_C contains subroutine sub2(b) use mod_B type(t2) :: b end subroutine end module module mod_D use mod_A use mod_C end module -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42274