Just another update

This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions

View file

@ -1,17 +1,3 @@
PROGRAM INFINITELOOP
C While you can put this label on the WRITE statement, it is good
C form to label CONTINUE statements whenever possible, rather than
C statements that actually contain instructions. This way, you can
C indent inside the "loop" and make it more readable.
10 CONTINUE
WRITE (*,*) 'SPAM'
GOTO 10
C It is also good form to close the "loop" with another label. In
C this case, there is absolutely no reason to do this at all, but,
C if you wanted to break, you would be able to add `GOTO 20` to
C exit the loop.
20 CONTINUE
STOP
10 WRITE(*,*) 'SPAM'
GO TO 10
END

View file

@ -1,3 +1,6 @@
DO
WRITE(*,*) "SPAM"
END DO
program spam
implicit none
do
write(*,*) 'SPAM'
end do
end program spam