diff options
author | David Edelsohn <edelsohn@gnu.org> | 2004-12-30 17:16:39 +0000 |
---|---|---|
committer | David Edelsohn <dje@gcc.gnu.org> | 2004-12-30 12:16:39 -0500 |
commit | 64f33597f37856b4bcc74963f8ac67f8294af383 (patch) | |
tree | 497cd6f613fd78e0a30565100bd3a11dbe00eeb3 | |
parent | d49b398c60415afa70aa8a95dbf706c79109a24d (diff) | |
download | gcc-64f33597f37856b4bcc74963f8ac67f8294af383.zip gcc-64f33597f37856b4bcc74963f8ac67f8294af383.tar.gz gcc-64f33597f37856b4bcc74963f8ac67f8294af383.tar.bz2 |
read_eof.f90: Open scratch file, not /dev/null.
* gfortran.fortran-torture/execute/read_eof.f90: Open scratch
file, not /dev/null. Abort on error.
From-SVN: r92737
-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 |