re PR libfortran/33985 (access="stream",form="unformatted" doesn't buffer)

2007-11-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/33985
	*gfortran.dg/streamio_12.f90: New test to avoid future regression.

From-SVN: r130172

gcc/testsuite/ChangeLog

 2007-11-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
+	PR fortran/33985
+	*gfortran.dg/streamio_12.f90: New test to avoid future regression.
+
+2007-11-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
 	*gfortran.dg/list_read_7.f90: Fix test so that test file is deleted when
 	done.
 

gcc/testsuite/gfortran.dg/streamio_12.f90

+! { 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
\ No newline at end of file