Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
a21b85c92aeb0491365dd3fefba9574145955477
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
fuse-loops
/
two-decremented-loops
/
decrementedLoopsTest.f90.result
blob: f706ca2ce273c383b9dbb10dfe20d52044e26c21 [
file
] [
log
] [
blame
]
program test
implicit
none
integer
::
i
,
j
,
n
=
2
!<<<<<
6
,
1
,
10
,
1
,
pass
do
i
=
0
,
4
,
1
print
*,
(
i
*-
2
+
10
)*(
i
*-
2
+
10
)
n
=
n
+(
i
*-
1
+
5
)
end
do
print
*,
n
end
program test