Just another update
This commit is contained in:
parent
a25938f123
commit
00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -1,3 +1,6 @@
|
|||
DO
|
||||
WRITE(*,*) "SPAM"
|
||||
END DO
|
||||
program spam
|
||||
implicit none
|
||||
do
|
||||
write(*,*) 'SPAM'
|
||||
end do
|
||||
end program spam
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue