[Bug libfortran/31099] [4.3/4.2 regression] Runtime error on legal code using RECL

[jvdelisle at gcc dot gnu dot org]

------- Comment #7 from jvdelisle at gcc dot gnu dot org  2007-03-09 21:51 -------
Subject: Bug 31099

Author: jvdelisle
Date: Fri Mar  9 21:51:39 2007
New Revision: 122763

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=122763
Log:
2007-03-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/31099
        * io/open.c (new_unit): Initialize bytes_left and recl_subrecord.
        * io/transfer.c (next_record_w): Set bytes left to record length for
        sequential unformatted I/O.
        (next_record_r): Ditto.
        (read_block_direct): Fix test for exceeding bytes_left.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/open.c
    trunk/libgfortran/io/transfer.c


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31099