+
−! { 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_streamio_12", 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)) STOP 1
+
−  close(10,status="delete")
+
−end program streamtest