finalyze moving

tests/sapfor/create_nested_loops/program.f90

@@ -0,0 +1,23 @@
+program BasicCreateNestedLoops
+  parameter (nx = 10, ny = 10)
+  integer a(nx, ny), b(nx, ny)
+  integer i, j, inv
+
+  print *, "TEST START"
+  do j = 1, ny
+    do i = 1, nx
+      a(i, j) = 1
+      b(i, j) = 2
+    enddo
+  enddo
+
+  do j = 1, ny
+    inv = nx * ny
+    do i = 1, nx
+      a(i, j) = 1 + b(i, j) * inv
+    enddo
+  enddo
+
+  print*, "Result", a(1, 1), a(nx, 1)
+  print *, "TEST END"
+end