[Bug fortran/20156] New: gfortran - bus error on backspace

[dir at lanl dot gov]

Here is a program that tests the some of the basic file operations that my real
programs do. Absoft 9.0 has no problem. gfortran gets a bus error.


[dir:~/tests/gfortran] dir% f90 -o backspace2 backspace2.f
[dir:~/tests/gfortran] dir% backspace2
 nr =  5
 x(1)=   1.00000
 x(1)=   2.00000
 x(1)=   3.00000
 x(1)=   4.00000
 x(1)=   5.00000
 STOP  
[dir:~/tests/gfortran] dir% gfortran  -o backspace2 backspace2.f
[dir:~/tests/gfortran] dir% backspace2
 nr =           5
Bus error
[dir:~/tests/gfortran] dir% cat backspace2.f
      program main
      dimension x(10)
      do 10 i=1,5
      x(1)=i
      write(3)n,(x(n),n=1,10)
  10  continue
      nr=0
      rewind 3
  20  continue
      read(3,end=30,err=90)n,(x(n),n=1,10)
      nr=nr+1
      goto 20
  30  continue
      write(*,*)'nr =',nr
      do 40 i=1,nr+1
      backspace 3
  40  continue
      do 50 i=1,nr
      read(3,end=70,err=90)n,(x(n),n=1,10)
      write(*,*)'x(1)= ',x(1)
  50  continue
      stop
  70  continue
      write(*,*)'error incorrect eof'
      stop
  90  continue
      write(*,*)' error on 3'
      stop
      end

-- 
           Summary: gfortran - bus error on backspace
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: powerpc-apple-darwin7.8.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20156