diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-24 23:03:29 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-24 23:03:29 +0000 |
| commit | 7bcb8bf5f1054a3bdee2a3d545403a11e4ae1ffd (patch) | |
| tree | 7f0060c3069e3ef2b0a20ab9b67ae18e8c02e7c3 | |
| parent | 87557722c87bd2ef0905ff061e7b0f990626ec5e (diff) | |
| download | gcc-7bcb8bf5f1054a3bdee2a3d545403a11e4ae1ffd.tar.gz | |
re PR libfortran/32456 (IO error message should show Unit/Filename)
2007-06-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32456
* gfortran.dg/error_format.f90: New test.
From-SVN: r125990
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/error_format.f90 | 11 |
2 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index dbfdf287d0f..3922d47e91e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-06-24 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/32456 + * gfortran.dg/error_format.f90: New test. + 2007-06-24 Paul Thomas <pault@gcc.gnu.org> PR fortran/32136 diff --git a/gcc/testsuite/gfortran.dg/error_format.f90 b/gcc/testsuite/gfortran.dg/error_format.f90 new file mode 100644 index 00000000000..227a3e0c8fa --- /dev/null +++ b/gcc/testsuite/gfortran.dg/error_format.f90 @@ -0,0 +1,11 @@ +! { dg-do run } +! { dg-shouldfail "Runtime error format check" } +! PR32456 IO error message should show Unit/Filename +program test + implicit none + integer :: i + open(99, status="scratch") + read(99,*) i +end program +! { dg-output ".*(unit = 99, file = .*)" } +! { dg-output "Fortran runtime error: End of file" } |