diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2015-01-26 01:04:50 +0200 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2015-01-26 01:04:50 +0200 |
| commit | 0daf734313c87d624776c7444f9e6bb901638e29 (patch) | |
| tree | c41c1bb0648532b1e768aba0f5aa6ec208cdc9d6 /gcc | |
| parent | 0ac399cfa9066b22cc8c30da900eae58cd6e9cc3 (diff) | |
| download | gcc-0daf734313c87d624776c7444f9e6bb901638e29.zip gcc-0daf734313c87d624776c7444f9e6bb901638e29.tar.gz gcc-0daf734313c87d624776c7444f9e6bb901638e29.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/open_new_segv.f90 | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8615087..31b999b 100644 --- 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 56cd1af..fe548f1 100644 --- 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" } } |