Как вернуть OS освобожденную программой память?

implicit none
integer :: AllocateStatus, DeAllocateStatus
!-----------------------
allocate(test_array(N), stat = AllocateStatus)
if (AllocateStatus /= 0)
write(*,*) 'Not enough memory'
stop 
end if
!------------------
deallocate(test_array, stat = DeAllocateStatus)
if (DeallocateStatus == 0) then 
write(*,*) 'Deallocate successful' 
else
write(*,*) 'Memory leak' 
end if

type Child
    type(Point), pointer :: ref
end type Child
 
type Point
    !...
        !Собственно данные этого узла
    !...
    integer(1) :: index !номер набора данных, к которому относится этот узел
        integer(1), dimension(-1:1,-1:1,-1:1) :: children_exist
        type(Child), allocatable, dimension( :,:,: ) :: children !ссылки на узлы следующего уровня дерева
end type Point
 
Для удаления узлов дерева я использую рекурсивную процедуру:
 
recursive subroutine delete_elements(node,exist_node,index)!удаляет элементы типа index, удаляем элемент только при отсутствии потомков
    use global_var
    implicit none
    integer :: index
    type(Point), pointer :: node
    integer(1) :: exist_node
    integer :: l,p,m
    do l=-1,1
        do p=-1,1
            do m=-1,1
                if (node%children_exist(l,p,m)==1) &
                    &call delete_elements(node%children(l,p,m)%ref,node%children_exist(l,p,m),index)
            end do
        end do
    end do
    if (all(node%children_exist==0) .and. allocated(node%children)) deallocate(node%children)
    if (all(node%children_exist==0) .and. node%index==index) then
        deallocate(node)
        nullify(node)
        exist_node=0
    else if (node%index==index) then
        node%index=0
    end if
end subroutine delete_elements

type Child
    type(Point), pointer :: ref
end type Child
 
type Point
    ...
    Собственно данные этого узла
    ...
    integer(1) :: index !номер набора данных, к которому относится этот узел
    integer(1), dimension(-1:1,-1:1,-1:1) :: children_exist
    type(Child), allocatable, dimension( :,:,: ) :: children !ссылки на узлы следующего уровня дерева
end type Point
 
recursive subroutine delete_elements(node,exist_node,index)!удаляет элементы типа index, удаляем элемент только при отсутствии потомков
    use global_var
    implicit none
    integer :: index
    type(Point), pointer :: node
    integer(1) :: exist_node
    integer :: l,p,m
    do l=-1,1
        do p=-1,1
            do m=-1,1
                if (node%children_exist(l,p,m)==1) &
                &call delete_elements(node%children(l,p,m)%ref,node%children_exist (l,p,m),index)
            end do
        end do
    end do
    if (all(node%children_exist==0) .and. allocated(node%children)) deallocate(node%children)
    if (all(node%children_exist==0) .and. node%index==index) then
        deallocate(node)
        nullify(node)
        exist_node=0
    else if (node%index==index) then
        node%index=0
    end if
end subroutine delete_elements