program leggo2
implicit none

! lettura fino a end of file con vettore statico


integer, parameter :: idim=10
integer ::n,i,iend
real, dimension(idim) :: x
real:: xm

do i=1,idim
   read(5,*,iostat=iend)x(i)
   write(6,*) i,x(i),iend
   if(iend /= 0)exit
enddo
write(6,*) 'esco i,iend=',i,iend
if(iend > 0)then
   write(6,*)'Errore di lettura :',iend
   stop
endif
if (i > idim)then
   write(6,*) 'errore :numero dati >= ',idim
   stop
endif

n=i-1
write(6,*) 'Letti ',n,' dati'
xm=0
do i=1,n
   xm=xm+x(i)
enddo
xm=xm/n
write(6,*) 'media=',xm

end program leggo2