Destroy the data within a json_value, and reset type to json_unknown
.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(json_value), | intent(inout) | :: | d |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
subroutine destroy_json_data(d)
implicit none
type(json_value),intent(inout) :: d
d%var_type = json_unknown
if (allocated(d%log_value)) deallocate(d%log_value)
if (allocated(d%int_value)) deallocate(d%int_value)
if (allocated(d%dbl_value)) deallocate(d%dbl_value)
if (allocated(d%str_value)) deallocate(d%str_value)
end subroutine destroy_json_data