program lettura
USE IFCORE
implicit none


! 

integer:: idat,ierr
character(len=10)::messaggio

! 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(messaggio,"('Error',i4)") ierr
   call perror(messaggio)
endif
end program lettura