Difference between revisions of "F90: IF sem THEN"

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
(New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE INTEGER :: i = 0 DO i=i+1 WRITE (*,*) i IF (MOD(i,15)==0) EXIT END DO END PROGRAM </code>)
 
(No difference)

Latest revision as of 02:18, 3 November 2008

PROGRAM aula
	IMPLICIT NONE
	INTEGER :: i = 0
	DO 
		i=i+1
		WRITE (*,*) i
		IF (MOD(i,15)==0) EXIT
	END DO
END PROGRAM