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
