Loop structures: Difference between revisions

Content added Content deleted
(Added FORTRAN 77 loops. Since most are just hacked GOTO statements, I figure it is useful to have a quick reference.)
Line 285:
70 IF (I .LE. J) THEN
WRITE (*,*) I
J = J + I1
GOTO 70
ENDIF</lang>
Retrieved from "https://rosettacode.org/wiki/Loop_structures"