delete_content Subroutine

private pure subroutine delete_content(self)

Arguments

Type IntentOptional AttributesName
class(xml_tag), intent(inout) :: self

XML tag.

Description

Delete tag content.


Source Code

  pure subroutine delete_content(self)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Delete tag content.
  !---------------------------------------------------------------------------------------------------------------------------------
  class(xml_tag), intent(inout) :: self !< XML tag.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  call self%tag_content%free
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine delete_content