chap03/sample3.f90
1program sample
2 implicit none
3
4 integer(4), parameter :: n = 8_4
5 real(8), parameter :: pi = 3.141592653589_8
6 integer(4) :: m
7 real(8) :: f, g
8
9 ! 普通の変数と同じように定数を参照出来る
10 m = n * 10
11 f = pi * 2
12 g = 3.0e+10_8
13
14 ! 次のような定数変数への代入を行うコードがあるとコンパイルエラーとなる
15 ! pi = 3.14
16
17 write(*, *) n
18 write(*, *) pi
19
20 stop
21endprogram sample