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

12
tests/sapfor/shrink/error.f Normal file
View File

@@ -0,0 +1,12 @@
PROGRAM TEST
INTEGER I, K, N
DOUBLE PRECISION A(20, 20), TMP_BR1(7, 14)
N = 5
!$SPF TRANSFORM(SHRINK(TMP_BR1 (1, 0)))
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