- 396 名前：395 mailto:sage [2007/04/17(火) 17:09:51 ]
- 色々やった結果，以下のようにしたら期待通りになりました．
変数宣言部で初期化するとsave属性が付くという仕様に気づきませんでした．
data文はsave属性の変数に値を入れることができない(？)．
何がなにやら・・
もうdata文を使うのはやめます．
!---プログラム-----
program MATRIX_TEST
implicit none
integer :: Matrix(1:3) = 0
!data Matrix/1,2,3/ ←やめて，下のようにした．
Matrix = (/1,2,3/)
write(6,*) Matrix
end program MATRIX_TEST
