------- Comment #4 from dfranke at gcc dot gnu dot org 2009-12-06 18:15 -------
Reduced testcase:
type t1
integer, allocatable :: d1(:)
end type t1
type t2
type(t1), allocatable :: d2(:)
end type t2
type(t2) :: a, b
a = new2( (/ new1((/1,1/)) /) )
b = new2( (/ a%d2 , a%d2 /) )
contains
pure type(t1) function new1(d1)
integer, intent(in) :: d1(:)
allocate(new1%d1(size(d1)))
new1%d1 = d1
end function
pure type(t2) function new2(d2)
type(t1), intent(in) :: d2(:)
allocate(new2%d2(size(d2)))
new2%d2 = d2
end function
end
The dump still has about 800 lines - somewhat hard to tell what's going on.
Adding PaulT as CC.
--
dfranke at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |dfranke at gcc dot gnu dot
| |org, pault at gcc dot gnu
| |dot org
Last reconfirmed|2009-07-25 07:32:47 |2009-12-06 18:15:24
date| |
Summary|"double free or corruption" |double free in nested types
|returning derived types with|with allocatable components
|allocatable components |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40850
