From 4159401a0d4eba0bfa57f040e27aea8ef6a23343 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Fri, 1 Apr 2005 17:27:05 +0200 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4a21f16a41f..116ae34a371 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-04-01 Francois-Xavier Coudert + + * gfortran.fortran-torture/execute/backspace.f90: Check + after backspace and read was incorrect. + 2005-04-01 Kaveh R. Ghazi * 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 16f5523e353..8781fb2c996 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 -- 2.30.2