diff options
| author | Wolfgang Gellerich <gellerich@de.ibm.com> | 2007-04-26 07:44:09 +0000 |
|---|---|---|
| committer | Andreas Krebbel <krebbel@gcc.gnu.org> | 2007-04-26 07:44:09 +0000 |
| commit | 007bddf4a859befa03f9d2225d26f15e45d1ec43 (patch) | |
| tree | 0777858fb50904934b655b1562871ba549f6eb9f | |
| parent | 6f7195603e4495155760893afe18ebdf2eb32c47 (diff) | |
| download | gcc-007bddf4a859befa03f9d2225d26f15e45d1ec43.zip gcc-007bddf4a859befa03f9d2225d26f15e45d1ec43.tar.gz gcc-007bddf4a859befa03f9d2225d26f15e45d1ec43.tar.bz2 | |
open_errors.f90: Added if statements checking the value of iostat.
2007-04-26 Wolfgang Gellerich <gellerich@de.ibm.com>
* gfortran.dg/open_errors.f90: Added if statements checking
the value of iostat.
From-SVN: r124182
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/open_errors.f90 | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4667c9da..4310a1c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-04-26 Wolfgang Gellerich <gellerich@de.ibm.com> + + * gfortran.dg/open_errors.f90: Added if statements checking + the value of iostat. + 2007-04-26 Jakub Jelinek <jakub@redhat.com> PR c++/31598 diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90 index 8e719d1..ff55d3a 100644 --- a/gcc/testsuite/gfortran.dg/open_errors.f90 +++ b/gcc/testsuite/gfortran.dg/open_errors.f90 @@ -7,11 +7,13 @@ open(77,file=n,status="new") close(77, status="keep") msg="" open(77,file=n,status="new", iomsg=msg, iostat=i) +if (i == 0) call abort() if (msg /= "File 'temptestfile' already exists") call abort() open(77,file=n,status="old") close(77, status="delete") open(77,file=n,status="old", iomsg=msg, iostat=i) +if (i == 0) call abort() if (msg /= "File 'temptestfile' does not exist") call abort() open(77,file="./", iomsg=msg, iostat=i) @@ -22,6 +24,7 @@ i = chmod(n, "-w") if (i == 0) then close(77, status="keep") open(77,file=n, iomsg=msg, iostat=i, action="write") + if (i == 0) call abort() if (msg /= "Permission denied trying to open file 'temptestfile'") call abort() endif |