From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-prs-return-11356-listarch-gcc-prs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 1211 invoked by alias); 15 Nov 2001 21:16:07 -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 1164 invoked by uid 71); 15 Nov 2001 21:16:03 -0000
Resent-Date: 15 Nov 2001 21:16:03 -0000
Resent-Message-ID: <20011115211603.1163.qmail@sourceware.cygnus.com>
Resent-From: gcc-gnats@gcc.gnu.org (GNATS Filer)
Resent-To: nobody@gcc.gnu.org
Resent-Cc: gcc-prs@gcc.gnu.org, gcc-bugs@gcc.gnu.org,
  Youngjean Jung <yjjung@newton.me.berkeley.edu>
Resent-Reply-To: gcc-gnats@gcc.gnu.org, toon@moene.indiv.nluug.nl
Received:(qmail 31286 invoked by uid 61); 15 Nov 2001 21:10:44 -0000
Message-Id:<20011115211044.31278.qmail@sourceware.cygnus.com>
Date: Sun, 04 Nov 2001 10:56:00 -0000
From: toon@moene.indiv.nluug.nl
Reply-To: toon@moene.indiv.nluug.nl
To: gcc-gnats@gcc.gnu.org
Cc: Youngjean Jung <yjjung@newton.me.berkeley.edu>
X-Send-Pr-Version:gnatsweb-2.9.2 (1.1.1.1.2.21)
X-GNATS-Notify:Youngjean Jung <yjjung@newton.me.berkeley.edu>
Subject: fortran/4885: BACKSPACE example that doesn't work as of gcc/g77-3.0.x
X-SW-Source: 2001-11/txt/msg00108.txt.bz2
List-Id: <gcc-prs.sourceware.org>


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