Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
a21b85c92aeb0491365dd3fefba9574145955477
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
replace-old-style-do-loop
/
test3
/
test3.f90
blob: fb7fd34d789f995bd16d5a68b811d357fe48f715 [
file
] [
log
] [
blame
]
program
Test3
!<<<<<
1
,
1
,
14
,
18
,
pass
do
100
i
=
1
,
10
do
110
j
=
1
,
10
do
120
k
=
1
,
10
do
130
l
=
1
,
10
do
140
m
=
1
,
10
do
150
n
=
1
,
10
150
x
=
i
+
j
+
k
+
l
+
m
+
n
140
y
=
j
+
k
+
l
+
m
+
n
130
z
=
k
+
l
+
m
+
n
120
w
=
l
+
m
+
n
110
t
=
m
+
n
100
v
=
n
end
program
Test3