11/11/19 17:28:08.28
>>656
次はションベンだ！
program o2chan
implicit none
character(10) :: siri
call sub( siri )
print *, siri
stop
contains
subroutine sub( anal )
character :: anal(*)
anal(1:10) = transfer('しょんべん', 'a', 10)
end subroutine sub
end program o2chan