! --- 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
