example4.f90

PROGRAM example4
IMPLICIT NONE

INTEGER :: input
INTEGER :: mod_out

! start program

DO
	WRITE(*,*) "Please enter an integer"
	READ(*,*) input
	IF(input == 0) EXIT 
	mod_out = modulo(input,2) 
	IF (mod_out == 0) THEN ! If evenly divisible
		WRITE(*,*) input,"is an even number"
	ELSE
		WRITE(*,*) input,"is an odd number"
	ENDIF
END DO
WRITE(*,*) 'Goodbye'

END PROGRAM example4