2013-01-15から1日間の記事一覧
ソース・プログラム program text0 implicit none character(:), allocatable :: text text = 'FORTRAN77' print *, len(text) text = '12345678901234567890' print *, len(text) stop end program text0 実行結果 9 20 続行するには何かキーを押してくださ…
ソース・プログラム program text0 implicit none character(:), allocatable :: text text = 'FORTRAN77' print *, len(text) text = '12345678901234567890' print *, len(text) stop end program text0 実行結果 9 20 続行するには何かキーを押してくださ…