From 6e69121fb052303ccdba8b038193d92835937da4 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 25 Jan 2006 01:39:45 +0000 Subject: [PATCH] re PR libfortran/25835 (Segfault or Bad Address error on unformatted sequential READ) 2006-01-24 Jerry DeLisle PR fortran/25835 * Fix ChangeLog * gfortran.dg/read_eof.f90: Delete from rename. From-SVN: r110202 --- 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 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 - 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 -