With the following test case and no optimization, the dtp pointer is duplicated
resulting in the dtp-rec values getting mixed up during consecutive writes:
program avl
implicit none
real dt, t, a(10)
integer i, place
dt = 1.e-6
a = real( (/ (i, i=1, 10) /) )
open(unit=11, file='a.dat', access='stream')
open(unit=12, file='b.dat', access='stream')
do i = 1, 10
t = i * dt
write(11) t
write(12) a
end do
close(11)
close(12)
end program avl
Test case from Steve Kargl. The end result should be a.dat file of length 40
and b.dat file of length 400. The result is:
-rw-rw-r-- 1 jerry jerry 396 Sep 12 19:32 a.dat
-rw-rw-r-- 1 jerry jerry 436 Sep 12 19:32 b.dat
With -O1 this program works fine.
With gdb you can see the transfer calls given the same dtp pointer for both
files.
--
Summary: Consecutive STREAM I/O file positions mixed up
Product: gcc
Version: 4.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: jvdelisle at gcc dot gnu dot org
GCC host triplet: i686-pc-linux-gnu
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29053
