From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-prs-return-11370-listarch-gcc-prs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 15984 invoked by alias); 16 Nov 2001 03:56:03 -0000
Mailing-List: contact gcc-prs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-prs/>
List-Post: <mailto:gcc-prs@gcc.gnu.org>
List-Help: <mailto:gcc-prs-help@gcc.gnu.org>
Sender: gcc-prs-owner@gcc.gnu.org
Received: (qmail 15970 invoked by uid 71); 16 Nov 2001 03:56:02 -0000
Date: Mon, 05 Nov 2001 02:46:00 -0000
Message-ID: <20011116035602.15969.qmail@sourceware.cygnus.com>
To: nobody@gcc.gnu.org
Cc: gcc-prs@gcc.gnu.org,
From: "Tim Prince" <tprince@computer.org>
Subject: Re: fortran/4885: BACKSPACE example that doesn't work as of gcc/g77-3.0.x
Reply-To: "Tim Prince" <tprince@computer.org>
X-SW-Source: 2001-11/txt/msg00122.txt.bz2
List-Id: <gcc-prs.sourceware.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: