example2.f90

PROGRAM example2

IMPLICIT NONE

INTEGER :: n
INTEGER :: nMinusOne
INTEGER :: runningTotal
INTEGER :: out
LOGICAL :: skiploop


! start program

WRITE(*,*) 'Enter the integer:'
READ(*,*) n
IF (n == 1) THEN
	out = 0
ELSE
	runningTotal = n
	nMinusOne = n
	DO
		IF(nMinusOne < 2) THEN
			EXIT
		ELSE
			nMinusOne = nMinusOne - 1
			runningTotal = runningTotal * nMinusOne
		END IF
	END DO
	out = runningTotal
END IF
WRITE(*,*) out
END PROGRAM