finalyze moving
This commit is contained in:
10
tests/sapfor/convert_sum_to_loop/simple_sum.f
Normal file
10
tests/sapfor/convert_sum_to_loop/simple_sum.f
Normal file
@@ -0,0 +1,10 @@
|
||||
PROGRAM SIMPLE_SUM
|
||||
|
||||
REAL A (10), B (24), C(2)
|
||||
REAL S
|
||||
|
||||
S = SUM(A)
|
||||
S = SUM(B)
|
||||
S = SUM(C)
|
||||
|
||||
END
|
||||
11
tests/sapfor/convert_sum_to_loop/sum_with_sections.f
Normal file
11
tests/sapfor/convert_sum_to_loop/sum_with_sections.f
Normal file
@@ -0,0 +1,11 @@
|
||||
PROGRAM SUM_WITH_SECTIONS
|
||||
|
||||
REAL A (10), B (9), C(3)
|
||||
REAL S
|
||||
|
||||
S = SUM(B(4:7))
|
||||
S = SUM(A(3:6))
|
||||
S = SUM(A(1:5))
|
||||
S = SUM(A(2:4))
|
||||
|
||||
END
|
||||
11
tests/sapfor/convert_sum_to_loop/two_dimensional_sum.f
Normal file
11
tests/sapfor/convert_sum_to_loop/two_dimensional_sum.f
Normal file
@@ -0,0 +1,11 @@
|
||||
PROGRAM TWO_DIMENSIONAL_SUM
|
||||
|
||||
REAL A (100, 100), B (100, 90), C(10, 3)
|
||||
REAL S
|
||||
|
||||
S = SUM(A(2:10, 3:30))
|
||||
S = SUM(B(10:20, 34:37))
|
||||
S = SUM(C)
|
||||
S = SUM(A(45:99, 2:10))
|
||||
|
||||
END
|
||||
Reference in New Issue
Block a user