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
parent f840006398
commit 033bbce220
774 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tests/sapfor/shrink/error2.f Normal file
View File

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