Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(fson_string), | pointer | :: | str | |||
character(len=*), | intent(in) | :: | c |
subroutine append_chars(str, c)
type(fson_string), pointer :: str
character (len = *), intent(in) :: c
integer length, i
length = len(c)
do i = 1, length
call append_char(str, c(i:i))
end do
end subroutine append_chars