------- Comment #15 from dir at lanl dot gov 2006-02-24 20:55 -------
Hi Jerry,
I tried the new version of gfortran with your patches. My real programs now
run and all the old test programs worked, but of course I had to try something
new. Buffer sizes of 5000 and 10000 worked Ok, but I got a failure at buffer
size of 1000 -
[dir:~/tests/gfortran-D] dir% gfortran -o write26 write26.f
[dir:~/tests/gfortran-D] dir% write26
1140858888 4000
Abort
[dir:~/tests/gfortran-D] dir% cat write26.f
program test
dimension idata(1000)
idata(1) = -1
idata( 1000) = -2
write(11)idata
idata(1) = -2
idata( 1000) = -3
write(11)idata
idata(1) = -3
idata( 1000) = -4
write(11)idata
idata(1) = -4
idata( 1000) = -5
write(11)idata
read(11,end= 1000 )idata
call abort()
1000 continue
backspace 11
backspace 11
backspace 11
read(11,end= 1001 )idata
if(idata(1).ne. -3.or.idata( 1000).ne. -4)then
write(6,*)idata(1),idata( 1000)
call abort()
endif
1001 continue
stop
end
[dir:~/tests/gfortran-D] dir% gfortran --v
Using built-in specs.
Target: powerpc-apple-darwin8.5.0
Configured with: ../gcc/configure --prefix=/Users/dir/gfortran
--enable-languages=c,f95
Thread model: posix
gcc version 4.2.0 20060224 (experimental)
[dir:~/tests/gfortran-D] dir%
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26423
