Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Loops-While/Fortran/loops-while-2.f
+++ b/Task/Loops-While/Fortran/loops-while-2.f
@ -13,21 +13,5 @@ C         Handle I.
 C         Jump back to before the IF block.
          GOTO 10
        ENDIF
-
-C       This is an alternative while loop with labels on both ends. This
-C       will use the condition as a break rather than create an entire
-C       IF block. Which you use is up to you, but be aware that you must
-C       use this one if you plan on allowing for breaks.
-        I = 1024
-   20   CONTINUE
-C         If condition is false, break.
-          IF (I .LE. 0) GOTO 30
-C         Handle I.
-          WRITE (*,*) I
-          I = I / 2
-C         Jump back to the "loop" beginning.
-          GOTO 20
-   30   CONTINUE
-
        STOP
      END