10 lines
164 B
Forth
10 lines
164 B
Forth
program str_append
|
|
implicit none
|
|
|
|
character(len=20) :: str
|
|
|
|
str= 'String'
|
|
str(len_trim(str)+1:) = 'Append'
|
|
print *, str
|
|
|
|
end program str_append
|