Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
0691d8504c5a71e309ebad3e192a5736affef68c
/
.
/
org.eclipse.photran.core.vpg.tests
/
interchange-loops-test-code
/
test01-simple.f90
blob: f4875b50eef7644dd1160804910996e1fc5b646d [
file
] [
log
] [
blame
]
subroutine main
()
integer
::
i
,
j
!<<<<<
START
do
j
=
1
,
10
do
i
=
1
,
10
print
*,
i
+
j
end
do
end
do
!<<<<<
END
end
subroutine