------- Comment #2 from janus at gcc dot gnu dot org 2010-08-28 12:18 -------
Reduced test case:
module d_base_mat_mod
implicit none
type :: d_base_sparse_mat
contains
procedure, pass(a) :: mv_to_coo => d_base_mv_to_coo
end type d_base_sparse_mat
interface
subroutine d_base_mv_to_coo(a)
import d_base_sparse_mat
class(d_base_sparse_mat), intent(inout) :: a
end subroutine d_base_mv_to_coo
end interface
type :: d_sparse_mat
class(d_base_sparse_mat), allocatable :: a
end type d_sparse_mat
contains
subroutine bug21(ax)
type(d_sparse_mat), intent(inout) :: ax
select type(aa=> ax%a)
class default
call aa%mv_to_coo()
end select
end subroutine bug21
end module d_base_mat_mod
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45439
