Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
e5f6fab10b208de0002e882eee13cb3914e0f532
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
interchange-loops
/
test-triple2
/
test-triple-loop2.f90.result
blob: 7f7ff75de45847d769090e166ccd7a06678ecf67 [
file
] [
log
] [
blame
]
subroutine main
()
integer
::
i
,
j
integer
::
k
,
z
do
j
=
1
,
15
do
i
=
1
,
10
!<<<<<
6
,
5
,
16
,
11
,
pass
do
k
=
1
,
20
print
*,
i
if
(
i
.
gt
.
j
)
then
print
*,
i
*
10
end
if
print
*,
i
end
do
end
do
end
do
end
subroutine