real v(7),sum
integer n
open(10,file="test4.in")
read(10,*) n
read(10,*)(v(i),i=1,n)
sum=0.
do i=1,n
Sum=sum+v(i)
enddo
print*,"sum=",sum
stop
end