mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 02:40:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Jerry DeLisle 2007-11-14 01:22:17 +00:00
parent 0aeaf89a2a
commit 68c2aa7d95
2 changed files with 23 additions and 0 deletions
gcc/testsuite
ChangeLog
gfortran.dg
streamio_12.f90

5
gcc/testsuite/ChangeLog

@ -1,3 +1,8 @@
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

18
gcc/testsuite/gfortran.dg/streamio_12.f90 Normal file

@ -0,0 +1,18 @@
! { 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