diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-01-25 01:39:45 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-01-25 01:39:45 +0000 |
| commit | 6e69121fb052303ccdba8b038193d92835937da4 (patch) | |
| tree | e24fe46ded186c085fb97d0c6d7c3cf50e862399 /gcc | |
| parent | f19c10ceb66780205dd9da0c5c056ee7a911de24 (diff) | |
| download | gcc-6e69121fb052303ccdba8b038193d92835937da4.zip gcc-6e69121fb052303ccdba8b038193d92835937da4.tar.gz gcc-6e69121fb052303ccdba8b038193d92835937da4.tar.bz2 | |
re PR libfortran/25835 (Segfault or Bad Address error on unformatted sequential READ)
2006-01-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/25835
* Fix ChangeLog
* gfortran.dg/read_eof.f90: Delete from rename.
From-SVN: r110202
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 3 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/read_eof.f90 | 27 |
2 files changed, 2 insertions, 28 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f437418..0ca67f0 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 b5c4901..0000000 --- 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 - |