fortran エラーメッセージの意味について

Question

前提・実現したいこと

vizualstudio2005を用いてfortranのプログラムを書いているのですが、
以下のようなエラーメッセージが出ました.
エラーメッセージがこれしか出なかったのでどこに問題があるのかわかりません。
おそらく以下の文字定義の個所に問題があると思うのですが、定義できる数は決まっているのでしょうか.
教えてください。

発生している問題・エラーメッセージ

complication aborted (code3)

該当のソースコード

fortran

CHARACTER(len = 4), DIMENSION(0:5000) :: &
  number = (/'000','001','002','003', '004', '005', '006', '007', '008', '009', '010', '011', '012', '013', '014', '015', '016', '017', '018', '019', '020', '021', '022', '023', '024', '025', '026', '027', '028', '029', '030', '031', '032', '033', '034', '035', '036', '037', '038', '039', '040', '041', '042', '043', '044', '045', '046', '047', '048', '049', '050', '051', '052', '053', '054', '055', '056', '057', '058', '059', '060', '061', '062', '063', '064', '065', '066', '067', '068', '069', '070', '071', '072', '073', '074', '075', '076', '077', '078', '079', '080', '081', '082', '083', '084', '085', '086', '087', '088', '089', '090', '091', '092', '093', '094', '095', '096', '097', '098', '099', '100',....以後文字数の関係で省略...'5000'/)

Comments

[dodox86]

ご提示のコードを見て思っただけですが、極端に1行の長さが長い、と言うことはありませんか。'100'..省略..'5000' /) となっていたので。
そうであれば、データ項目数を少なくしてみたり、1行の幅を短く(100～200文字ほど)してみるとか試してみてはいかがでしょうか。

[kjdijcd]

ありがとうございます。試してみます。

Answer 1

fortran 90 の規格では１行の長さは、自由形式では 132 桁までとなっているので、エラーが出ているものと思われます。

普通は適宜改行を入れて継続行にしてやればいいのですが、継続行は 39 までなので今度はこちらの制限に引っ掛かりそうですね。

処理系独自の拡張があるので、規格にこだわらなければ何とかなるかもしれませんが・・・

手で打ち込むより、初期化ルーチンを呼ぶことにして、文字変数を内部ファイルとして以下のような感じでやる方法があります。4 桁になっていますが適宜修正してください。

   character(len=4) :: number(0:10)
   do i = 0, 10
     write(number(i), '(I4.4)') i
   end do
   
   print '(a)', number
end 

$gfortran -std=gnu *.f95 -o main
$main
0000
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010

Comments

[kjdijcd]

ありがとうございます。参考にさせていただきます。