階乗の計算。 PROGRAM factorial IMPLICIT NONE INTEGER :: i, ifac ifac = 1 DO i = 1, 20 ifac = ifac * i PRINT *, i, '!=', ifac END DO STOP END PROGRAM FACTORIAL 実行結果 途中までは正しい結果を出しますが、13!から先は結果が狂っています。あまつ…