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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 861508782f5984cee213c7edba1410e97477fa1b..31b999b515cf5e7cd07fed50d82f1d473aa33509 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gfortran.dg/open_new_segv.f90 b/gcc/testsuite/gfortran.dg/open_new_segv.f90
index 56cd1afd9b52a403dbdbb25e9e9421df5b11784f..fe548f1a196adfc77045cb6015eda4d04350c20e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/open_new_segv.f90
+++ b/gcc/testsuite/gfortran.dg/open_new_segv.f90
@@ -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" } }