diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/open_errors.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/open_errors.f90 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90 index 8e719d19ea1..ff55d3a59da 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 |
