------- Comment #3 from janus at gcc dot gnu dot org 2010-09-20 16:29 -------
Here is a reduced test case:
module base_mat_mod
type :: base_sparse_mat
contains
procedure :: get_fmt
end type
contains
function get_fmt(a) result(res)
implicit none
class(base_sparse_mat), intent(in) :: a
character(len=5) :: res
res = 'NULL'
end function
subroutine errlog(name)
character(len=*) :: name
end subroutine
subroutine test (a)
implicit none
class(base_sparse_mat), intent(in) :: a
call errlog(a%get_fmt())
end subroutine
end module
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45438
