PROGRAM doloop

IMPLICIT NONE

INTEGER :: i

DO i = 1, 20, 1
    IF (i/3 == 0) THEN
     WRITE (*,*) "Fizz"
    ELSE
     WRITE (*,*) i
    END IF
END DO

END PROGRAM doloop