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