递归类型的内部组件不会在内部分配中复制

如何解决递归类型的内部组件不会在内部分配中复制

考虑以下Fortran程序：

program test_prg
  implicit none

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

  type(recursive_block) :: top_level
  top_level = init_recursive()
  print *,loc(top_level % subblocks(1,1) % subblocks)
  deallocate(top_level % subblocks)

contains

  function init_recursive() result(res)
    type(recursive_block) :: res
    type(recursive_block),allocatable :: inner(:,:)

    allocate(inner(1,1))
    allocate(inner(1,1) % subblocks(1,1))
    print *,loc(inner(1,1) % subblocks)
    res % subblocks = inner
  end function
end program

与gfortran 10.2一起编译，此代码在deallocate(top_level % subblocks)上崩溃，并显示以下消息：

free(): double free detected in tcache 2

我怀疑这可能与以下事实有关：两个打印语句都打印相同的数字，即top_level % subblocks(1,1) % subblocks的地址与inner(1,1) % subblocks的地址匹配，后者是局部变量的组成部分，应该在函数退出时被释放。

这是gfortran错误吗？