re PR libfortran/25550 (file data corrupted after reading end of file)

2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/25550
	* gfortran.dg/endfile.f: New test.

From-SVN: r109102

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index daa90ea3fdb7f8d1618a96a421e1fc5af9fb2376..ca119ddc8c49f5d12b910b9700befa9afefa8bf1 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libgfortran/25550
+       * gfortran.dg/endfile.f: New test.
+
 2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/25419

diff --git a/gcc/testsuite/gfortran.dg/endfile.f b/gcc/testsuite/gfortran.dg/endfile.f
new file mode 100644 (file)
index 0000000..6ece545
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/endfile.f
@@ -0,0 +1,18 @@
+! { dg-do run }
+! PR25550 file data corrupted after reading end of file.
+! Derived from example given in PR from Dale Ranta.
+! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org> 
+      integer data
+      data=-1
+      open(unit=11,status='scratch',form='unformatted')
+      write(11)data
+      read(11,end=1000 )data
+      call abort()
+ 1000 continue
+      rewind (11)
+      read(11)data
+ 1001 continue
+      if(data.ne.-1) call abort
+      end
+
+