以下のようにすれば文字列file の長さをサブルーチン内で
指定しなくてよい
c---------------------------------------
program samp
call test("abcde")
call test("abc")
stop
end
c-----
subroutine test(file)
character(*), intent(in):: file
write(6,*) file
return
end
c---------------------------------------