program test_alloc_assign

  implicit none

  type int_array_wrap
     integer, allocatable :: data(:)
  end type int_array_wrap

  type array_array_wrap
     type(int_array_wrap), allocatable :: data(:)
  end type array_array_wrap

  type(array_array_wrap) :: wrapper
  type(int_array_wrap) :: data(5)

  wrapper%data(:) = data

end program test_alloc_assign