[Bug libfortran/25835] Segfault or Bad Address error on unformatted sequential READ

[dir at lanl dot gov]

------- Comment #5 from dir at lanl dot gov  2006-01-23 15:20 -------
I think that the examples shown above now work. Here is the shortest new one to
fail - another bug I guess.


[dranta:~/tests/gfortran-D] dir% gfortran -o write25 write25.f
[dranta:~/tests/gfortran-D] dir% write25
  read EOF did not skip
Abort
[dranta:~/tests/gfortran-D] dir% cat write25.f
       integer data(5000)
       data=-1
       open(unit=11,form='unformatted')
       write(11)data
       write(11)data
       read(11,end=        1000 )data
       call abort()
 1000  continue
       backspace 11
       rewind 11
       write(11)data
       read(11,end=        1001 )data
       call abort()
 1001  continue
       backspace 11
       rewind 11
       read(11,end=        1002 )data
        if(data(1).ne.  -1.or.data(5000).ne.  -1)then
            call abort()
        endif
 1002  continue
       read(11,end=        1003 )data
       write(*,*)' read EOF did not skip'
       call abort()
 1003  continue
       close(11)
       end


-- 


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