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

[Youngjean Jung <yjjung@newton.me.berkeley.edu>]

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--