Destroy the node key.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(dictionary_node), | intent(inout) | :: | self | The node. |
elemental subroutine destroy_key(self)
!---------------------------------------------------------------------------------------------------------------------------------
!< Destroy the node key.
!---------------------------------------------------------------------------------------------------------------------------------
class(dictionary_node), intent(inout) :: self !< The node.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
if (allocated(self%key)) then
call self%key%destroy
deallocate(self%key)
endif
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine destroy_key