[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