------- Comment #11 from janus at gcc dot gnu dot org 2010-06-06 02:49 -------
Reduced test case for comment #4:
module foo_mod
type foo
contains
procedure, pass(a) :: doit
generic :: do => doit
end type
contains
subroutine doit(a)
class(foo) :: a
end subroutine
end module
module bar_mod
contains
subroutine dodo(a)
use foo_mod
class(foo) :: a
call a%do()
end subroutine
end module
program testd15
use foo_mod
type(foo) :: af_ab
call af_ab%do()
end program
testd15.f03:10:0: internal compiler error: in gfc_add_component_ref, at
fortran/class.c:77
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43945
