From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-prs-return-11371-listarch-gcc-prs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 4762 invoked by alias); 16 Nov 2001 04:16:02 -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 4681 invoked by uid 71); 16 Nov 2001 04:16:01 -0000
Date: Mon, 05 Nov 2001 02:47:00 -0000
Message-ID: <20011116041601.4680.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/msg00123.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 20:06:02 -0800

 This is a multi-part message in MIME format.
 --------------070700080307020905040900
 Content-Type: text/plain; charset=us-ascii; format=flowed
 Content-Transfer-Encoding: 7bit
 
 Dear Mr. Tim Prince :
 
 I checked the data file which my test2.f made. Endfile command resolved 
 the I/O error, but unfortunatly data file is still wrong. Unnessary data 
 is written in the wrong place. Let me send you with my test2.f. Try 
 this. When I compiled test2.f by g77-2.96, no problem at all. But when I 
 compiled it
 by g77-3.0.2, it still gives me a wrong data file.
 
 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:
 >>>
 >
 >
 
 
 --------------070700080307020905040900
 Content-Type: text/plain;
  name="test2.f"
 Content-Transfer-Encoding: 7bit
 Content-Disposition: inline;
  filename="test2.f"
 
       program test
 c
       implicit none
       integer  i,k    
 c
       do i=1,10
         open(1,file='s1.dat',status='unknown',access='sequential')
         do k=1,10
            write(1,*) k
            endfile 1
            backspace 1
         end do
         close(1)
       end do
 c
       end
 c
 c
 
 
 --------------070700080307020905040900--