diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-12-16 05:27:31 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-12-16 05:27:31 +0000 |
| commit | e6a98ba89323ec0f641df79101ea99dadda441ce (patch) | |
| tree | f633a3747fd5d6e91e5cb60fe8194da44eed93b1 | |
| parent | e96af95382d13b336d7b3bdc21e229c24b6b6571 (diff) | |
| download | gcc-e6a98ba89323ec0f641df79101ea99dadda441ce.zip gcc-e6a98ba89323ec0f641df79101ea99dadda441ce.tar.gz gcc-e6a98ba89323ec0f641df79101ea99dadda441ce.tar.bz2 | |
re PR libfortran/30005 (Open errors (not/already exists etc.): show also the file name)
2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/30005
* gfortran.dg/open_errors.f90: New test.
From-SVN: r119960
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/open_errors.f90 | 31 |
2 files changed, 36 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a9d0d9b..486bf17 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/30005 + * gfortran.dg/open_errors.f90: New test. + 2006-12-15 H.J. Lu <hongjiu.lu@intel.com> * gcc.dg/i386-cpuid.h (bit_SSSE3): New. diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90 new file mode 100644 index 0000000..009da07 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/open_errors.f90 @@ -0,0 +1,31 @@ +! { dg-do run } +! PR30005 Enhanced error messages for OPEN +! 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") +msg="" +open(77,file=n,status="new", iomsg=msg, iostat=i) +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 (msg /= "File 'temptestfile' does not exist") call abort() + +open(77,file="./", iomsg=msg, iostat=i) +if (msg /= "'./' is a directory") call abort() + +open(77,file=n,status="new") +i = chmod(n, "-w") +if (i == 0) then + close(77, status="keep") + open(77,file=n, iomsg=msg, iostat=i, action="write") + if (msg /= "Permission denied trying to open file 'temptestfile'") call abort() +endif + +i = chmod(n,"+w") +open(77,file=n, iomsg=msg, iostat=i, action="read") +close(77, status="delete") +end |