Re: fortran/4885: BACKSPACE example that doesn't work as of gcc/g77-3.0.x

["Tim Prince" <tprince@computer.org>]

The following reply was made to PR fortran/4885; it has been noted by GNATS.

From: "Tim Prince" <tprince@computer.org>
To: <toon@moene.indiv.nluug.nl>,
	<gcc-gnats@gcc.gnu.org>
Cc: "Youngjean Jung" <yjjung@newton.berkeley.edu>
Subject: Re: fortran/4885: BACKSPACE example that doesn't work as of gcc/g77-3.0.x
Date: Thu, 15 Nov 2001 19:49:38 -0800

 g77 3.1 20011031 has no apparent problem with this on i686-pc-cygwin.
 ----- Original Message -----
 From: <toon@moene.indiv.nluug.nl>
 To: <gcc-gnats@gcc.gnu.org>
 Cc: "Youngjean Jung" <yjjung@newton.berkeley.edu>
 Sent: Thursday, November 15, 2001 1:10 PM
 Subject: fortran/4885: BACKSPACE example that doesn't work as of
 gcc/g77-3.0.x
 
 
 >
 > >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: