Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(fson_string), | pointer | :: | this |
recursive subroutine fson_string_destroy(this)
type(fson_string), pointer :: this
if (associated(this % next)) then
call fson_string_destroy(this % next)
end if
nullify (this % next)
nullify (this)
end subroutine fson_string_destroy