Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed paths

Browse Source
This commit is contained in:
Alexander
2025-03-12 14:22:11 +03:00
committed by Dudarenko
parent 06cfe83666
commit 86ab34e7f3
776 changed files with 4561 additions and 4548 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Sapfor/tests/sapfor/shrink/shrink.f Normal file
View File

@@ -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