------- Additional Comments From bdavis at gcc dot gnu dot org 2004-12-09
09:41 -------
sounds reasonable to me. note that gfc_offset is either a 32 or a 63 bit value
depending on offset_t.
there is a testsuite file to test this exact problem,
unopened_unit_1.f90
! PR 14565
program unopened_unit_1
Integer I,J
Do I = 1,10
Write(99,*)I
End Do
Rewind(99)
Do I = 1,10
Read(99,*)J
If (J.ne.I) Call abort
End Do
End program
so fixing this PR should also fix at least one testsuite failure on you
platform.
--bud
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18891
