Re: [Bug libfortran/25116] [regression wrt g77] namelist read from non-opened file

[Jerry DeLisle]

fxcoudert at gcc dot gnu dot org wrote:

------- Comment #2 from fxcoudert at gcc dot gnu dot org  2005-11-27 23:14 
-------
(In reply to comment #1)

At line 2 of file nml.f
Fortran runtime error: End of file

Debugging shows that the bytes_left field of the stream is not set correctly
(2338621003140048416 instead of 9223372036854775807). It is set in transfer.c,
line 1143.

If you mean this:


  memcpy (&i, p, sizeof (gfc_offset));
  dtp->u.p.current_unit->bytes_left = i;

Maybe it should be a -=

Jerry