2 ! PR33985 Stream IO test with empty write, array writes, and reads.
5 character(1) :: lf = char(10)
8 real(kind=4), dimension(100,100) :: anarray
9 open(10, file="teststream", access="stream", form="unformatted")
12 write(10, pos=1) ! This is a way to position an unformatted file
15 anarray = abs(anarray - 3.14159)
16 if (any(anarray.gt.0.00001)) call abort()
17 close(10,status="delete")
18 end program streamtest