Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(fson_string), | pointer | :: | this |
subroutine allocate_block(this)
type(fson_string), pointer :: this
type(fson_string), pointer :: new
if (.not.associated(this % next)) then
allocate(new)
this % next => new
end if
end subroutine allocate_block