[Bug libfortran/18891] write with no open causes core dump

[bdavis at gcc dot gnu dot org]

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