diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-16 05:27:31 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-16 05:27:31 +0000 |
| commit | 76fdb388b3695ec2c9a484a372ddd246d985cc1d (patch) | |
| tree | f633a3747fd5d6e91e5cb60fe8194da44eed93b1 | |
| parent | 72cb750e3c17b4eb42efb22306aa2c46b24db261 (diff) | |
| download | ppe42-gcc-76fdb388b3695ec2c9a484a372ddd246d985cc1d.tar.gz ppe42-gcc-76fdb388b3695ec2c9a484a372ddd246d985cc1d.zip | |
2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/30005
* gfortran.dg/open_errors.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119960 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 a9d0d9b6e7b..486bf17bd92 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 00000000000..009da073b4d --- /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 |
