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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4a21f16a41f6288a8bc84994f6a777903c928279..116ae34a37181f43f626b05611b4ba9d56038305 100644 (file)
--- 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 16f5523e35371c483456b8cc74e8000304741cb8..8781fb2c99631c9f7650fcb05569d9778844f5fa 100644 (file)
--- 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