allocate_block Subroutine

  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