finalyze moving

2025-03-12 14:28:04 +03:00
parent f840006398
commit 033bbce220
774 changed files with 0 additions and 0 deletions
--- a/tests/sapfor/shrink/shrink.f
+++ b/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