PROGRAM Find_All_Errors

IMPLICIT NONE

INTEGER :: i, n, count; CHARACTER :: Flag

DoLoop: DO

PRINT *, "Enter your positive integer"

READ *, n

Count = 0 !Initializing count.

MyDo: DO i=1, n

IF (MOD(i,5)==0) THEN

Count = count+1

END IF

END DO MyDo

PRINT *, "count= ", count

PRINT *, "Continue? If not, press n or N, else press any other key."

READ *, Flag

IF ((Flag=="n") .OR. (Flag=="N")) THEN

EXIT !Quiting the loop and terminating the program.

END IF

END DO DoLoop

END PROGRAM Find_All_Errors

! END of PROGRAM Find_Errors_All