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

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

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

From-SVN: r111421

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/read_many_1.f

+!{ 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