diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-04-01 17:27:05 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-04-01 15:27:05 +0000 |
| commit | 4159401a0d4eba0bfa57f040e27aea8ef6a23343 (patch) | |
| tree | d005de9f4b679dbe5097e27d00f7cbb4e687a895 /gcc | |
| parent | 6dbce5382087ee9c854155ad732ffc1830ce9904 (diff) | |
| download | gcc-4159401a0d4eba0bfa57f040e27aea8ef6a23343.zip gcc-4159401a0d4eba0bfa57f040e27aea8ef6a23343.tar.gz gcc-4159401a0d4eba0bfa57f040e27aea8ef6a23343.tar.bz2 | |
backspace.f90: Check after backspace and read was incorrect.
* gfortran.fortran-torture/execute/backspace.f90: Check
after backspace and read was incorrect.
From-SVN: r97397
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4a21f16..116ae34 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-04-01 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + * gfortran.fortran-torture/execute/backspace.f90: Check + after backspace and read was incorrect. + 2005-04-01 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> * gcc.c-torture/execute/builtins/strcat.c: Check the result diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 index 16f5523..8781fb2 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 @@ -9,6 +9,6 @@ read(10,*)C backspace(10) read(10,*) C - if (C.ne.'b') call abort + if (C.ne.'a') call abort close(10,STATUS='DELETE') end |