OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/26423 (Error on binary I/O for large array)

Browse Source 
2006-02-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/26423
	* gfortran.dg/read_many_1.f: New test.

From-SVN: r111421
This commit is contained in:
Jerry DeLisle 2006-02-24 18:23:38 +00:00
parent c5418dcb96
commit 6bb9adda5c
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2006-02-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26423
* gfortran.dg/read_many_1.f: New test.
2006-02-24 Paul Thomas <pault@gcc.gnu.org>
PR fortran/24519

23
gcc/testsuite/gfortran.dg/read_many_1.f Normal file
View File

@ -0,0 +1,23 @@
!{ dg-do run }
! PR26423 Large file I/O error related to buffering
! Test case derived from case by Dale Ranta.
! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
integer :: a(3000) , b(2048)
a=3
b=5
a(1) = 1
a(3000)=1234
write(2) a
b(1) = 2
b(2048) = 5678
write(2) b
rewind 2
read(2) a
read(2) b
if (a(1).ne.1) call abort()
if (a(2).ne.3) call abort()
if (b(1).ne.2) call abort()
if (b(2).ne.5) call abort()
if (a(3000).ne.1234) call abort()
if (b(2048).ne.5678) call abort()
end