diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-29 05:38:45 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-29 05:38:45 +0000 |
| commit | d7505f4646bfae48b10615c50c1ed2cd9b5ea656 (patch) | |
| tree | 6c43e9d119c915e5a605814ca91f398b02098ae7 /gcc | |
| parent | 1a0d6f82c987987448d514d17886b2ee4c053123 (diff) | |
| download | gcc-d7505f4646bfae48b10615c50c1ed2cd9b5ea656.zip gcc-d7505f4646bfae48b10615c50c1ed2cd9b5ea656.tar.gz gcc-d7505f4646bfae48b10615c50c1ed2cd9b5ea656.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 93bc110..00e2dc8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +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. diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90 index ff55d3a..1f5c1c0 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 <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() |