Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
e5f6fab10b208de0002e882eee13cb3914e0f532
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
remove-unused-local-vars
/
test2
/
unused_variables_2.f90.result
blob: f3eab90fb148d800c0a99245bce41bea2b47064a [
file
] [
log
] [
blame
]
program standardize_statements
!<<<<<
1
,
1
,
pass
implicit
none
real
,
dimension
(
1
:
10
)
::
vector
integer a
(
4
),
d
dimension
::
d
(
10
)
a
=
(
/1,2,3,4/
)
vector
(
1
:
10
)
=
4.0
end
program standardize_statements