Message ID | 20150125093550.25D95105@mailhost.lps.ens.fr |
---|---|
State | New |
Headers | show |
On Sun, Jan 25, 2015 at 10:35:50AM +0100, Dominique Dhumieres wrote: > > ... FAIL: gfortran.dg/open_new_segv.f90 -O0 execution test > > This is fixed with something such as > > --- ../_clean/gcc/testsuite/gfortran.dg/open_new_segv.f90 2015-01-25 00:37:43.000000000 +0100 > +++ gcc/testsuite/gfortran.dg/open_new_segv.f90 2015-01-25 10:31:40.000000000 +0100 > @@ -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,5 @@ 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" } > > Note that it may be worth to run a second test to cleanup the file 'pr64770test.dat'. That is not possible in a second test, the second test might be scheduled in a different job, in a different directory. So you need to solve this either in the test (call some function that removes it), or in dg-final. Jakub
--- ../_clean/gcc/testsuite/gfortran.dg/open_new_segv.f90 2015-01-25 00:37:43.000000000 +0100 +++ gcc/testsuite/gfortran.dg/open_new_segv.f90 2015-01-25 10:31:40.000000000 +0100 @@ -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,5 @@ 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" }
> ... FAIL: gfortran.dg/open_new_segv.f90 -O0 execution test This is fixed with something such as Note that it may be worth to run a second test to cleanup the file 'pr64770test.dat'. Dominique