This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [committed] fix gfortran.fortran-torture/execute/backspace.f90
- From: FranÃois-Xavier Coudert <Francois-Xavier dot Coudert at lcp dot u-psud dot fr>
- To: gfortran <fortran at gcc dot gnu dot org>
- Date: Fri, 01 Apr 2005 17:43:46 +0200
- Subject: Re: [committed] fix gfortran.fortran-torture/execute/backspace.f90
- Organization: Laboratoire de Chimie Physique
- References: <424D6A58.1070600@lcp.u-psud.fr>
This one was PASSing but the testcase code was wrong (it failed with
g77). So we now have one more FAILure in the testsuite, but this is
fixed by Dale's proposed patch (see
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20156#c2).
Sorry I forgot the diff:
implicit none
character*1 C
open(10)
write(10,*)'a'
write(10,*)'b'
write(10,*)'c'
rewind(10)
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
FX