------- Comment #9 from janus at gcc dot gnu dot org 2009-12-05 11:20 -------
(In reply to comment #8)
> With the patch in comment #7 the tests in pr41829 and the following ones
> segfault at runtime.
Confirmed. This may be an initialization issue of the vtypes. Reduced test
case:
module m
type :: t1
integer :: i = 42
contains
procedure, pass :: prod => i_m_j
end type t1
contains
integer function i_m_j (arg)
class(t1), intent(in) :: arg
print *,"in i_m_j"
i_m_j = 0
end function i_m_j
end module m
use m
class(t1), pointer :: a
type(t1), target :: b
integer :: itmp
a => b
itmp = a%prod()
print *, itmp
end
--
janus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |pault at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42274
