From 64f33597f37856b4bcc74963f8ac67f8294af383 Mon Sep 17 00:00:00 2001 From: David Edelsohn Date: Thu, 30 Dec 2004 17:16:39 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5bb895777e0..c077b73c787 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2004-12-30 David Edelsohn + + * gfortran.fortran-torture/execute/read_eof.f90: Open scratch + file, not /dev/null. Abort on error. + 2004-12-30 Alexander Malmberg Ziemowit Laski diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90 index 92e454025b5..b4bc8239b23 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 -- 2.30.2