------- Comment #3 from janus at gcc dot gnu dot org 2010-08-23 15:36 -------
Reduced test case:
program bug20
type :: d_base_sparse_mat
integer :: v(10) = 0.
end type d_base_sparse_mat
class(d_base_sparse_mat),allocatable :: a
allocate (d_base_sparse_mat :: a)
select type(aa => a)
type is (d_base_sparse_mat)
write(0,*) 'NV = ',size(aa%v)
class default
write(0,*) 'Not implemented yet '
end select
end program bug20
Note: The double free only happens when an associate-name is used.
--
janus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2010-08-23 15:36:11
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45384
