This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch, testsuite] Committed patch to open_errors.f90
- From: Jerry DeLisle <jvdelisle at verizon dot net>
- To: Fortran List <fortran at gcc dot gnu dot org>
- Cc: gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Thu, 28 Jun 2007 22:43:57 -0700
- Subject: [patch, testsuite] Committed patch to open_errors.f90
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