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