From 64f33597f37856b4bcc74963f8ac67f8294af383 Mon Sep 17 00:00:00 2001
From: David Edelsohn <edelsohn@gnu.org>
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 5bb895777e06..c077b73c787d 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 92e454025b5f..b4bc8239b231 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
--
GitLab