diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-08-31 23:43:21 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-08-31 23:43:21 +0000 |
| commit | 244fada7d093f23e27bbb8af97d99bb9a876e9b0 (patch) | |
| tree | ac565ec762faca9922dc3c698e1b3b01925bef82 /gcc/testsuite/gfortran.dg | |
| parent | a0ca8e0c48cbda3a4f82d32b0d6659f0f82085e9 (diff) | |
| download | gcc-244fada7d093f23e27bbb8af97d99bb9a876e9b0.zip gcc-244fada7d093f23e27bbb8af97d99bb9a876e9b0.tar.gz gcc-244fada7d093f23e27bbb8af97d99bb9a876e9b0.tar.bz2 | |
error.c (generate_error): Set both iostat and library_return.
* runtime/error.c (generate_error): Set both iostat and
library_return.
testsuite/
* gfortran.dg/eof_2.f90: New test.
From-SVN: r86852
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/eof_2.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/eof_2.f90 b/gcc/testsuite/gfortran.dg/eof_2.f90 new file mode 100644 index 0000000..b7c2c91 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/eof_2.f90 @@ -0,0 +1,13 @@ +! { dg-do run } +! Check that end= and iostat= specifiers are honoured when both are used +program eof_2 + integer ierr, i + + open (11, status="SCRATCH") + ierr = 0 + read (11, *, end=10, iostat=ierr) i + call abort +10 continue + if (ierr .ge. 0) call abort +end program + |