Initial data commit

Task/Loops-Do-while/Fortran/loops-do-while-1.f

@@ -0,0 +1,6 @@
+INTEGER :: i = 0
+DO
+  i = i + 1
+  WRITE(*, *) i
+  IF (MOD(i, 6) == 0) EXIT
+END DO

Task/Loops-Do-while/Fortran/loops-do-while-2.f

@@ -0,0 +1,15 @@
+      PROGRAM DOWHILE
+C Initialize modulus and value.
+        INTEGER MODLUS, IVALUE
+        PARAMETER (MODLUS = 6)
+        IVALUE = 0
+
+C FORTRAN 77 has no do-while structure -- not semantically. It is not
+C difficult to simulate it using GOTO, however:
+   10   CONTINUE
+          IVALUE = IVALUE + 1
+          WRITE (*,*) IVALUE
+        IF (.NOT. (MOD(IVALUE, MODLUS) .EQ. 0)) GOTO 10
+
+        STOP
+      END

Task/Loops-Do-while/Fortran/loops-do-while-3.f

@@ -0,0 +1,7 @@
+      IVALUE = 0
+   10 CONTINUE
+        IVALUE=IVALUE+1
+        WRITE(6,301) IVALUE
+  301   FORMAT(I5)
+      IF(MOD(IVALUE,6).NE.0) GOTO 10
+      END

Task/Loops-Do-while/Fortran/loops-do-while-4.f

@@ -0,0 +1,7 @@
+      IVALUE = 0
+   10 IVALUE=IVALUE+1
+      WRITE 301,IVALUE
+  301 FORMAT(I5)
+      IF(IVALUE-IVALUE/6*6) 10,20,10
+   20 STOP
+      END