Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(fson_value), | pointer | :: | this |
integer function fson_value_count(this) result(count)
type(fson_value), pointer :: this, p
count = 0
p => this % children
do while (associated(p))
count = count + 1
p => p % next
end do
end function fson_value_count