[patch, testsuite] Committed patch to open_errors.f90
Jerry DeLisle
jvdelisle@verizon.net
Fri Jun 29 05:46:00 GMT 2007
I committed a minor patch to this test case to test for the existence of the
test file before trying to create it. If for any reason, the test does not
complete and the "temptestfile" does not get deleted by the program, then
subsequent tests thereafter will fail when trying to create the file.
Jerry
2007-06-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/open_errors.f90: Check for existence of temptestfile.
If it exists, don't try to create it.
+ logical :: there
+ inquire(file=n, exist=there)
+ if (.not.there) then
open(77,file=n,status="new")
close(77, status="keep")
+ endif
More information about the Fortran
mailing list