program lettura
implicit none
integer:: idat,ierr

! legge e scrive termina co 0

!write(0,*)'dammi dato'
read(5,*,iostat=ierr) idat
do while(ierr == 0)

   write(6,'(i5)')idat

!   write(0,*)'dammi dato'
   read(5,*,iostat=ierr) idat
enddo
if (ierr > 0) then
   write(6,*)'Errore numero:', ierr
endif
end program lettura