finalyze moving

tests/sapfor/shrink/error.f

@@ -0,0 +1,12 @@
+      PROGRAM TEST
+      INTEGER I, K, N
+      DOUBLE PRECISION A(20, 20), TMP_BR1(7, 14)
+      N = 5
+!$SPF TRANSFORM(SHRINK(TMP_BR1 (1, 0)))
+      DO I = 1,N
+        DO K = 1,N
+          TMP_BR1(K,I) = I + 7
+          A(K,I) = TMP_BR1(K,I) + 12
+        ENDDO
+      ENDDO
+      END

tests/sapfor/shrink/error2.f

@@ -0,0 +1,16 @@
+      PROGRAM TEST
+      INTEGER I, K, N, C(20)
+      DOUBLE PRECISION A(20, 20), TMP_BR1(7, 14)
+      N = 5
+      I = 1
+!$SPF TRANSFORM(SHRINK(TMP_BR1 (1, 0), A(0, 0, 2), N, C, A(i,1),
+!$SPF&K))
+!$SPF ANALYSIS(PRIVATE(TMP_BR1,
+!$SPF&A))
+      DO I = 1,N
+        DO K = 1,N
+          TMP_BR1(K,I) = I + 7
+          A(K,I) = TMP_BR1(K,I) + 12
+        ENDDO
+      ENDDO
+      END

tests/sapfor/shrink/error3.f

@@ -0,0 +1,16 @@
+      PROGRAM TEST
+      INTEGER I, K, N, C(20)
+      DOUBLE PRECISION A(20, 20), TMP_BR1(7, 14)
+      N = 5
+      I = 1
+!$SPF TRANSFORM(SHRINK(TMP_BR1 (1, 0), A(0, 0), C(1), A(0,1),
+!$SPF&c))
+!$SPF ANALYSIS(PRIVATE(TMP_BR1,
+!$SPF&A, C))
+      DO I = 1,N
+        DO K = 1,N
+          TMP_BR1(K,I) = I + 7
+          A(K,I) = TMP_BR1(K,I) + 12
+        ENDDO
+      ENDDO
+      END

tests/sapfor/shrink/shrink.f

@@ -0,0 +1,13 @@
+      PROGRAM TEST
+      INTEGER I, K, N
+      DOUBLE PRECISION A(20, 20), TMP_BR1(7, 14)
+      N = 5
+!$SPF TRANSFORM(SHRINK(TMP_BR1 (1, 0)))
+!$SPF ANALYSIS(PRIVATE(TMP_BR1))
+      DO I = 1,N
+        DO K = 1,N
+          TMP_BR1(K,I) = I + 7
+          A(K,I) = TMP_BR1(K,I) + 12
+        ENDDO
+      ENDDO
+      END

tests/sapfor/shrink/shrink2.f

@@ -0,0 +1,13 @@
+      PROGRAM TEST
+      INTEGER I, K, N
+      DOUBLE PRECISION A(20, 20), TMP_BR1(7, 14)
+      N = 5
+!$SPF TRANSFORM(SHRINK(TMP_BR1 (1, 0), A(0, 1)))
+!$SPF ANALYSIS(PRIVATE(TMP_BR1, A))
+      DO I = 1,N
+        DO K = 1,N
+          TMP_BR1(K,I) = I + 7
+          A(K,I) = TMP_BR1(K,I) + 12
+        ENDDO
+      ENDDO
+      END

tests/sapfor/shrink/shrink3.f

@@ -0,0 +1,16 @@
+      PROGRAM TEST
+      INTEGER I, K, N, C(20)
+      DOUBLE PRECISION A(20, 20), TMP_BR1(7, 14)
+      N = 5
+      I = 1
+!$SPF TRANSFORM(SHRINK(TMP_BR1 (1, 0), A(0, 0), C(1), A(0,1),
+!$SPF&c(0)))
+!$SPF ANALYSIS(PRIVATE(TMP_BR1,
+!$SPF&A, C))
+      DO I = 1,N
+        DO K = 1,N
+          TMP_BR1(K,I) = I + 7
+          A(K,I) = TMP_BR1(K,I) + 12
+        ENDDO
+      ENDDO
+      END