Initial data commit

Task/Loops-For/Fortran/loops-for-1.f

@@ -0,0 +1,33 @@
+C     WARNING: This program is not valid ANSI FORTRAN 77 code. It uses
+C     one nonstandard character on the line labelled 5001. Many F77
+C     compilers should be okay with it, but it is *not* standard.
+      PROGRAM FORLOOP
+        INTEGER I, J
+
+        DO 20 I = 1, 5
+          DO 10 J = 1, I
+C           Print the asterisk.
+            WRITE (*,5001) '*'
+   10     CONTINUE
+C         Print a newline.
+          WRITE (*,5000) ''
+   20   CONTINUE
+
+        STOP
+
+ 5000   FORMAT (A)
+C       Standard FORTRAN 77 is completely incapable of completing a
+C       WRITE statement without printing a newline. If you wanted to
+C       write this program in valid F77, you would have to come up with
+C       a creative way of printing varying numbers of asterisks in a
+C       single write statement.
+C
+C       The dollar sign at the end of the format is a nonstandard
+C       character. It tells the compiler not to print a newline. If you
+C       are actually using FORTRAN 77, you should figure out what your
+C       particular compiler accepts. If you are actually using Fortran
+C       90 or later, you should replace this line with the commented
+C       line that follows it.
+ 5001   FORMAT (A, $)
+C5001   FORMAT (A, ADVANCE='NO')
+      END

Task/Loops-For/Fortran/loops-for-2.f

@@ -0,0 +1,6 @@
+DO i = 1, 5
+  DO j = 1, i
+    WRITE(*, "(A)", ADVANCE="NO") "*"
+  END DO
+  WRITE(*,*)
+END DO

Task/Loops-For/Fortran/loops-for-3.f

@@ -0,0 +1,4 @@
+integer :: i
+integer, dimension(10) :: v
+
+forall (i=1:size(v)) v(i) = i

Task/Loops-For/Fortran/loops-for-4.f

@@ -0,0 +1,3 @@
+      DO 1 I = 1,5
+    1 WRITE (6,*) ("*", J = 1,I)
+      END

Task/Loops-For/Fortran/loops-for-5.f

@@ -0,0 +1,4 @@
+      DO 1 I = 1,5
+    1 WRITE (6,2) (666, J = 1,I)
+    2 FORMAT(5I1)
+      END