Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
a21b85c92aeb0491365dd3fefba9574145955477
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
extract-local-variable
/
test2-formatting
/
extract_local_2.f90.result
blob: 403e1c3f7f85c745696681d5ef04d94b0ec18cba [
file
] [
log
] [
blame
]
program extract_local
implicit
none
real
::
numbers
(
5
)
=
(
/ 1.2, 3.4, 5.6, 7.8, 9.0 /
)
integer
::
count
count
=
size
(
numbers
,
1
)
print
*,
sum
(
numbers
)
&
/
&
count
!<<<<<
6
,
14
,
6
,
29
,
integer
::
count
,
pass
end
program