Subversion Repositories openrisc

! { dg-do run }

! PR33985 Stream IO test with empty write, array writes, and reads.

program streamtest

  implicit none

  character(1)   :: lf = char(10)

  character(1)   :: tchar

  integer        :: i,j,k

  real(kind=4), dimension(100,100) :: anarray

  open(10, file="teststream", access="stream", form="unformatted")

  anarray = 3.14159

  write(10) anarray

  write(10, pos=1) ! This is a way to position an unformatted file

  anarray = 0.0

  read(10) anarray

  anarray = abs(anarray - 3.14159)

  if (any(anarray.gt.0.00001)) call abort()

  close(10,status="delete")

end program streamtest