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