3 ! PR 46838: [OOP] Initialization of polymorphic allocatable components
5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
15 integer, allocatable
:: matrix_data
16 class(indx_map
), allocatable
:: indxmap
19 type(desc_type
) :: desc_a
24 subroutine cdall(desc
)
25 type(desc_type
), intent(out
) :: desc
26 if (allocated(desc
%indxmap
)) call abort()