open_errors.f90: Check for existance of temptestfile.

2007-06-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* gfortran.dg/open_errors.f90: Check for existance of temptestfile.
	If it exists, don't try to create it.

From-SVN: r126105

gcc/testsuite/ChangeLog

+2007-06-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	* gfortran.dg/open_errors.f90: Check for existance of temptestfile.
+	If it exists, don't try to create it.
+
 2007-06-28  Geoffrey Keating  <geoffk@apple.com>
 
 	* g++.dg/ext/visibility/ms-compat-1.C: New.

gcc/testsuite/gfortran.dg/open_errors.f90

@@ -3,8 +3,12 @@
 ! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 character(60) :: msg
 character(25) :: n = "temptestfile"
-open(77,file=n,status="new")
-close(77, status="keep")
+logical :: there
+inquire(file=n, exist=there)
+if (.not.there) then
+  open(77,file=n,status="new")
+  close(77, status="keep")
+endif
 msg=""
 open(77,file=n,status="new", iomsg=msg, iostat=i)
 if (i == 0) call abort()