chap05/sample2.f90

サンプルコードのダウンロード

 1program sample
 2  implicit none
 3
 4  ! 宣言と同時に初期化
 5  integer :: a(5) = (/1, 2, 4, 8, 16/)
 6
 7  ! 定数配列
 8  integer, parameter :: b(3) = (/-1, 0, 1/)
 9
10  ! "(/" と "/)" で囲えばその場で配列を作ることが出来る
11  write(*, *)(/1, 2, 3/)
12
13  write(*, *) a
14
15  write(*, *) b
16
17  stop
18endprogram sample