This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
fortran/4885: BACKSPACE example that doesn't work as of gcc/g77-3.0.x
- From: toon at moene dot indiv dot nluug dot nl
- To: gcc-gnats at gcc dot gnu dot org
- Cc: Youngjean Jung <yjjung at newton dot me dot berkeley dot edu>
- Date: 15 Nov 2001 21:10:44 -0000
- Subject: fortran/4885: BACKSPACE example that doesn't work as of gcc/g77-3.0.x
- Reply-to: toon at moene dot indiv dot nluug dot nl
[Get raw message]
>Number: 4885
>Category: fortran
>Synopsis: BACKSPACE example that doesn't work as of gcc/g77-3.0.x
>Confidential: no
>Severity: serious
>Priority: medium
>Responsible: unassigned
>State: open
>Class: sw-bug
>Submitter-Id: net
>Arrival-Date: Thu Nov 15 13:16:01 PST 2001
>Closed-Date:
>Last-Modified:
>Originator: Youngjean Jung
>Release: 3.0 and higher
>Organization:
>Environment:
Debian GNU/Linux 2.2
>Description:
The following code:
open(51,file='s1.dat',status='unknown',access='sequential')
do k=1,100
call plot(k)
end do
close(51)
end
subroutine plot(k)
j=0
do i=1,10
if(j.lt.5) then
j=j+1
else
backspace 51
endif
write(51,*) j, k
end do
end
gives:
$ ./a.out
$ ./a.out
backspace: end of file
apparent state: unit 51 named s1.dat
last format: list io
lately writing direct formatted external IO
Aborted
[Note: for the failure to appear, the code has to be run
a second time]
>How-To-Repeat:
>Fix:
>Release-Note:
>Audit-Trail:
>Unformatted: