------- Additional Comments From aa056 at chebucto dot ns dot ca 2005-06-02
16:11 -------
The test doesn't tell us if the output is correct!
The attached script runs the test but saves the output. On Windows XP Msys
the gfortran output is missing a block of records:
$ ./chk-write-many.sh
cat - <<EOF >write-many.f
cat write-many.f
program main
* open(10,status='SCRATCH')
a = 0.3858204
do i=1,1000
a = a + 0.4761748164
write(*, '(G12.5)') a
end do
end
gfortran -v
Using built-in specs.
Target: i686-pc-mingw32
Configured with: ../gcc/configure --prefix=/mingw --enable-languages=c,f95
Thread model: win32
gcc version 4.1.0 20050520 (experimental)
gfortran write-many.f
time ./a.exe > wm-gfortran.out
real 0m1.293s
user 0m0.062s
sys 0m0.015s
g77 write-many.f
time ./a.exe > wm-g77.out
real 0m0.249s
user 0m0.046s
sys 0m0.031s
cmp wm-*.out
wm-g77.out wm-gfortran.out differ: char 8193, line 586
$ diff wm-*.out
586,630d585
< 279.43
[...]
< 300.38
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20278
