! { dg-do run } | |
! PR fortran/45384 | |
! Double free happened, check that it works now. | |
! Contributed by Salvatore Filippone <salvatore.filippone@uniroma2.it> | |
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) | |
if (size(aa%v) /= 10) STOP 1 | |
class default | |
write(0,*) 'Not implemented yet ' | |
end select | |
end program bug20 |