[Bug libfortran/25697] libfortran - Segmentation fault/ Bad Address on unformatted read

["dir at lanl dot gov" <gcc-bugzilla at gcc dot gnu dot org>]

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