Correct execution of Final routine in Fortran
问题 I have following Fortran code type t_octree integer :: max_num_point class(t_octree_node), pointer :: root => null() contains final :: DESTROY_OCTREE end type t_octree type t_octree_node real :: box(2,3) integer :: depth type(t_octree_node), pointer :: parent => null() type(t_octree_node), pointer :: children(:) => null() class(t_octree_leaf), pointer :: leaf => null() contains final :: CLEAN_NODE end type t_octree_node type, extends(t_octree_node) :: t_octree_leaf integer, allocatable :: id(