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

10
tests/sapfor/convert_where_to_loop/simple_where.f Normal file
View File

@@ -0,0 +1,10 @@
PROGRAM SIMPLE_WHERE
REAL A (10), B (10), C(10)
REAL S
WHERE (A > 0) A = 3
WHERE (C <= 56) C = 15
WHERE (B /= 0) B = S / 2
END

9
tests/sapfor/convert_where_to_loop/two_dimensional_where.f Normal file
View File

@@ -0,0 +1,9 @@
PROGRAM TWO_DIMENSIONAL_WHERE
REAL A (100, 100), B (100, 90), C(10, 3)
WHERE (B(10:20, 10:20) > 0) B(10:20, 10:20) = 0
WHERE (A(10:90, 50:90) > 0) B = 2
WHERE (A(10:90, 50:90) > 0) A(40:50, 20:70) = 5
END

9
tests/sapfor/convert_where_to_loop/where_with_sections.f Normal file
View File

@@ -0,0 +1,9 @@
PROGRAM WHERE_WITH_SECTIONS
REAL A (10), B (9), C(3)
WHERE (A(3:6) > 0) A(3:6) = 0
WHERE (A(1:5) > 6) B = 9
WHERE (A < 7) B = 10
END