------- 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
