free Subroutine

  elemental subroutine free(self)
  !< Free dynamic memory.
  class(xml_tag), intent(inout) :: self !< XML tag.

  call self%tag_name%free
  call self%tag_content%free
  if (allocated(self%attribute)) then
    call self%attribute%free
    deallocate(self%attribute)
  endif
  self%attributes_number = 0
  self%indent = 0
  self%is_self_closing = .false.
  endsubroutine free