F90: Reinício o ciclo DO

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
PROGRAM aula
	IMPLICIT NONE
	INTEGER :: i = 0
	DO 
		i=i+1
		IF (MOD(i,2)==0) CYCLE
		WRITE (*,*) i
		IF (MOD(i,15)==0) EXIT
	END DO
END PROGRAM