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

PR 64770 Make testcase work properly under DejaGNU. 

2015-01-26  Janne Blomqvist  <jb@gcc.gnu.org>

	PR libfortran/64770
	* gfortran.dg/open_new_segv.f90: Add dg- stuff to make test work
	correctly, clean up afterwards.

From-SVN: r220098
This commit is contained in:
Janne Blomqvist 2015-01-26 01:04:50 +02:00
parent 0ac399cfa9
commit 0daf734313
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2015-01-26 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/64770
* gfortran.dg/open_new_segv.f90: Add dg- stuff to make test work
correctly, clean up afterwards.
2015-01-25 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/62044

4
gcc/testsuite/gfortran.dg/open_new_segv.f90
View File

@ -1,4 +1,5 @@
! { dg-do run }
! { dg-shouldfail "File already exists" }
! PR 64770 SIGSEGV when trying to open an existing file with status="new"
program pr64770
implicit none
@ -8,3 +9,6 @@ program pr64770
open(99, file="pr64770test.dat", access="stream", form="unformatted", &
status="new")
end program pr64770
! { dg-output "At line 10 of file.*" }
! { dg-output "Fortran runtime error: File .pr64770test.dat. already exists" }
! { dg-final { remote_file build delete "pr64770test.dat" } }