file, not /dev/null. Abort on error.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92737
138bc75d-0d04-0410-961f-
82ee72b054a4
+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>
! 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