2 ! Test the fix for PR43895, in which the dummy 'a' was not
3 ! dereferenced for the deallocation of component 'a', as required
6 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
9 type :: base_sparse_mat
10 end type base_sparse_mat
12 type, extends(base_sparse_mat) :: d_base_sparse_mat
14 end type d_base_sparse_mat
17 class(d_base_sparse_mat), allocatable :: a
22 type(d_sparse_mat) :: b
26 if (allocated (b%a)) call abort
30 type(d_sparse_mat), intent(out) :: a
33 ! { dg-final { cleanup-modules "d_mat_mod " } }