Inner components of a recursive type are not copied in intrinsic assignment

Question

Consider the following Fortran program:

program test_prg
  implicit none

  type :: recursive_block
    type(recursive_block), allocatable :: subblocks(:, :)
  en