Destroy the node (key & content).
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(dictionary_node), | intent(inout) | :: | self | The node. |
elemental subroutine destroy(self)
!---------------------------------------------------------------------------------------------------------------------------------
!< Destroy the node (key & content).
!---------------------------------------------------------------------------------------------------------------------------------
class(dictionary_node), intent(inout) :: self !< The node.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
call self%destroy_key
call self%destroy_content
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine destroy