From 458f9038223acb633b7ba4a80c9ee3f0dfbe0af3 Mon Sep 17 00:00:00 2001
From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 25 Jan 2006 01:39:45 +0000
Subject: [PATCH] 2006-01-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/25835
* Fix ChangeLog
* gfortran.dg/read_eof.f90: Delete from rename.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@110202 138bc75d-0d04-0410-961f-82ee72b054a4
---
gcc/testsuite/ChangeLog | 3 ++-
gcc/testsuite/gfortran.dg/read_eof.f90 | 27 --------------------------
2 files changed, 2 insertions(+), 28 deletions(-)
delete mode 100644 gcc/testsuite/gfortran.dg/read_eof.f90
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f437418d335f..0ca67f097301 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,7 +1,8 @@
2006-01-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/25835
- * gfortran.dg/read_eof_1.f90: Rename from read_eof_1.f90.
+ * gfortran.dg/read_eof.f90: Delete, renamed.
+ * gfortran.dg/read_eof_1.f90: Rename from read_eof.f90.
* gfortran.dg/read_eof_2.f90: New test.
* gfortran.dg/read_eof_3.f90: New test.
diff --git a/gcc/testsuite/gfortran.dg/read_eof.f90 b/gcc/testsuite/gfortran.dg/read_eof.f90
deleted file mode 100644
index b5c49016a4aa..000000000000
--- a/gcc/testsuite/gfortran.dg/read_eof.f90
+++ /dev/null
@@ -1,27 +0,0 @@
-! { dg-do run }
-! PR25697 Check that reading from a file that is at end-of-file does not
-! segfault or give error. Test case derived from example in PR from Dale Ranta.
-! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
- integer data(9)
- do i = 1,9
- data(i)=-3
- enddo
- open(unit=11,status='scratch',form='unformatted')
- write(11)data
- read(11,end= 1000 )data
- call abort()
- 1000 continue
- backspace 11
- backspace 11
- write(11)data
- rewind 11
- data = 0
- read(11,end= 1001 )data
- 1001 continue
- read(11,end= 1002 )data
- call abort
- 1002 continue
- if (.not. all(data == -3)) call abort()
- close(11)
- end
-
--
GitLab