From d7505f4646bfae48b10615c50c1ed2cd9b5ea656 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 29 Jun 2007 05:38:45 +0000 Subject: [PATCH] open_errors.f90: Check for existance of temptestfile. 2007-06-28 Jerry DeLisle * 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 | 5 +++++ gcc/testsuite/gfortran.dg/open_errors.f90 | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 93bc11006a6..00e2dc8285e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-06-28 Jerry DeLisle + + * gfortran.dg/open_errors.f90: Check for existance of temptestfile. + If it exists, don't try to create it. + 2007-06-28 Geoffrey Keating * g++.dg/ext/visibility/ms-compat-1.C: New. diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90 index ff55d3a59da..1f5c1c08d5b 100644 --- a/gcc/testsuite/gfortran.dg/open_errors.f90 +++ b/gcc/testsuite/gfortran.dg/open_errors.f90 @@ -3,8 +3,12 @@ ! Submitted by Jerry DeLisle 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() -- 2.30.2