fixed paths

2025-03-12 14:22:11 +03:00
parent a4c8785e66
commit 18f561925b
774 changed files with 4558 additions and 4558 deletions
--- a/Sapfor/tests/sapfor/shrink/shrink2.f
+++ b/Sapfor/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