real,allocatable:: v(:)
integer n
open(10,file="test6.in")
read(10,*) n
allocate (v(n))
read(10,*) v(:)
sum=0.
do i=1,n
sum=sum+v(i)
enddo
print*,"sum=",sum
stop
end