! { dg-do run } | |
! | |
! PR 46838: [OOP] Initialization of polymorphic allocatable components | |
! | |
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> | |
program bug28 | |
implicit none | |
type indx_map | |
end type | |
type desc_type | |
integer, allocatable :: matrix_data | |
class(indx_map), allocatable :: indxmap | |
end type | |
type(desc_type) :: desc_a | |
call cdall(desc_a) | |
contains | |
subroutine cdall(desc) | |
type(desc_type), intent(out) :: desc | |
if (allocated(desc%indxmap)) STOP 1 | |
end subroutine cdall | |
end program |