Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
e5f6fab10b208de0002e882eee13cb3914e0f532
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
unroll-loop
/
complex-body-unroll2
/
ComplexBodyCompleteUnroll.f90.result
blob: a04d9513a8d51384a2be6a347d914aa7fb84aa04 [
file
] [
log
] [
blame
]
program test
implicit
none
integer
::
i
,
j
=-
1
j
=
j
**
1
j
=
j
+
j
print
*,
1
print
*,
j
j
=
j
**
3
j
=
j
+
j
print
*,
3
print
*,
j
j
=
j
**
5
j
=
j
+
j
print
*,
5
print
*,
j
end
program test