free.f90

来自「fortran 教程」· F90 代码 · 共 8 行

! --- Free Coding Format
PROGRAM  Factorial
    INTEGER ::  i, f=1     ! Initializing as f=1
    DO i = 1, 10
       f = f * i ;  PRINT *, i, '! =', f
    END DO
END PROGRAM Factorial