------- Comment #8 from dir at lanl dot gov 2006-01-11 15:34 -------
That fixed all the posted examples and it passed the 1048576 tests of all
combinations of read,write,backspace, and rewind taken 10 at a time writing a
single word, but when I increased the write size to 500 words it failed. The
strange thing with this example is that if one of the five writes is removed it
no longer fails (buffer flush problem ?) -
[dranta:~/tests/gfortran-D] dir% gfortran -o write21 write21.f
[dranta:~/tests/gfortran-D] dir% write21
Segmentation fault
[dranta:~/tests/gfortran-D] dir% cat write21.f
integer data(500)
do i = 1,500
data(i)=-1
enddo
open(unit=11,status='scratch',form='unformatted')
write(11)data
write(11)data
write(11)data
write(11)data
write(11)data
read(11,end= 1000 )data
call abort()
1000 continue
backspace 11
backspace 11
read(11,end= 1001 )data
1001 continue
read(11,end= 1002 )data
call abort()
1002 continue
close(11)
end
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25697
