Return a pointer to node's content.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(dictionary_node), | intent(in) | :: | self | The node. |
Content pointer of the node.
function get_pointer(self) result(content)
!---------------------------------------------------------------------------------------------------------------------------------
!< Return a pointer to node's content.
!---------------------------------------------------------------------------------------------------------------------------------
class(dictionary_node), intent(in) :: self !< The node.
class(*), pointer :: content !< Content pointer of the node.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
if (associated(self%content_)) content => self%content_
!---------------------------------------------------------------------------------------------------------------------------------
endfunction get_pointer