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

[toon@moene.indiv.nluug.nl]

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