diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f437418d335f5f9a2f5833b6ea9f11d3f3556c78..0ca67f097301dc3e23e8cde2f7f5f7f9bcae9400 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 b5c49016a4aaabc58ce98e7c05cd1c6c0ea31a31..0000000000000000000000000000000000000000 --- 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 -