diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5bb8957..c077b73 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2004-12-30 David Edelsohn <edelsohn@gnu.org> + + * gfortran.fortran-torture/execute/read_eof.f90: Open scratch + file, not /dev/null. Abort on error. + 2004-12-30 Alexander Malmberg <alexander@malmberg.org> Ziemowit Laski <zlaski@apple.com> diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 index 92e4540..b4bc823 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 @@ -1,5 +1,6 @@ ! PR 13919, segfault when file is empty - open(unit=8,file='/dev/null') + open(unit=8,status='scratch') read(8,*,end=1)i + call abort 1 continue end |