OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

read_eof.f90: Open scratch file, not /dev/null.

Browse Source 
* gfortran.fortran-torture/execute/read_eof.f90: Open scratch
        file, not /dev/null.  Abort on error.

From-SVN: r92737
This commit is contained in:
David Edelsohn 2004-12-30 17:16:39 +00:00 committed by David Edelsohn
parent d49b398c60
commit 64f33597f3
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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>

3
gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90
View File

@ -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