From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-prs-return-11369-listarch-gcc-prs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 5246 invoked by alias); 16 Nov 2001 01:36:01 -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 5232 invoked by uid 71); 16 Nov 2001 01:36:01 -0000
Date: Mon, 05 Nov 2001 02:45:00 -0000
Message-ID: <20011116013601.5230.qmail@sourceware.cygnus.com>
To: nobody@gcc.gnu.org
Cc: gcc-prs@gcc.gnu.org,
From: Youngjean Jung <yjjung@newton.me.berkeley.edu>
Subject: Re: fortran/4885: BACKSPACE example that doesn't work as of gcc/g77-3.0.x
Reply-To: Youngjean Jung <yjjung@newton.me.berkeley.edu>
X-SW-Source: 2001-11/txt/msg00121.txt.bz2
List-Id: <gcc-prs.sourceware.org>

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

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

 Dear Mr. Tim Prince :
 
 Thank you so much for your help. It resolved the problem. Thank you so much.
 
 Best!
 
 Youngjean.
 
 Tim Prince wrote:
 
 >Doesn't this require ENDFILE 51 before BACKSPACE 51 ?  Sure, there have been
 >times when some implementation didn't care.
 >----- 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:
 >>>
 >
 >