Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(fson_string), | pointer | :: | str1 | |||
type(fson_string), | pointer | :: | str2 |
subroutine append_string(str1, str2)
type(fson_string), pointer :: str1, str2
integer length, i
length = string_length(str2)
do i = 1, length
call append_char(str1, get_char_at(str2, i))
end do
end subroutine append_string