From: fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 1 Apr 2005 15:27:05 +0000 (+0000)
Subject:         * gfortran.fortran-torture/execute/backspace.f90: Check
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=5cd0159387ed6d495509431130373d7eb91aee6c;p=thirdparty%2Fgcc.git

    * gfortran.fortran-torture/execute/backspace.f90: Check
        after backspace and read was incorrect.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97397 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4a21f16a41f6..116ae34a3718 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 16f5523e3537..8781fb2c9963 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