Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
refs/tags/v201009241520
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
unroll-loop
/
unroll-with-expr-arg
/
unrollWithExpr.f90.result
blob: 16854f96c908dd9084be05f8e00706c1e8819477 [
file
] [
log
] [
blame
]
program test
implicit
none
integer
::
loopUpperBound
integer
::
i
,
n
=
4
loopUpperBound
=
n
*
n
!<<<<<
6
,
1
,
8
,
1
,
2
,
false
,
pass
do
i
=
1
,
loopUpperBound
,
2
print
*,
i
if
(
i
+
1
>
loopUpperBound
)
exit
print
*,
(
i
+
1
)
end
do
end
program test