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

finalyze moving

Browse Source
This commit is contained in:
Alexander
2025-03-12 14:28:04 +03:00
committed by Dudarenko
parent de4690513b
commit 189374274e
776 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
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