5 ! Contributed by Salvatore Filippone and Janus Weil
7 ! Check that ALLOCATE with SOURCE= does a deep copy.
12 type :: psb_base_sparse_mat
13 integer, allocatable :: irp(:)
14 end type psb_base_sparse_mat
16 class(psb_base_sparse_mat), allocatable :: a
17 type(psb_base_sparse_mat) :: acsr
20 acsr%irp(1:4) = (/1,3,4,5/)
22 write(*,*) acsr%irp(:)
24 allocate(a,source=acsr)
28 call move_alloc(acsr%irp, a%irp)
32 if (any (a%irp /= [1,3,4,5])) call abort()