program test
  implicit none
  integer :: ios,i
  integer :: onebyte
  character(len=1000) :: aline,filename
  integer,parameter :: blen=1,n=4,m=1
  real :: x(n,m)
  !character :: x(n,m)
  ! call getarg(1,filename)
  open(11,file="/tmp/junk.pdf",status="replace",form="unformatted",access="direct",recl=m*n*blen)
  ! open(10,file=filename,access="direct",form="unformatted",status="old",recl=m*n*blen)
  i = 0
  do
    i = i + 1
    read(*,*,iostat=ios) x
    ! read(10,rec=i,iostat=ios) x
    if (ios/=0) exit
    write(11,rec=i) x
  enddo
  !do
  !  read(10,iostat=ios) aline
  !!  if (ios<0) exit
  !  write(*,*) ios
  !  write(11) aline
  !  call flush(11)
  !enddo
  write(0,*) ios
  ! close(10)
  close(11)
end program test