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

[Thomas dot Koenig at online dot de]

------- Comment #5 from Thomas dot Koenig at online dot de  2007-03-09 20:13 -------
Subject: Re:  [4.3/4.2 regression] Runtime error on legal code using RECL

> I believe I have a fix.  I am testing now.  We were not initializing a few
> things when we have a record length given.
> 
> Index: io/open.c
> ===================================================================
> --- io/open.c   (revision 122529)
> +++ io/open.c   (working copy)
> @@ -437,6 +437,8 @@ new_unit (st_parameter_open *opp, gfc_un
>      {
>        u->flags.has_recl = 1;
>        u->recl = opp->recl_in;
> +      u->recl_subrecord = u->recl;
> +      u->bytes_left = u->recl;
>      }
>    else
>      {

This looks good.

Thanks, Jerry, for picking up on this so fast.

I had been sort of wondering wether I had introduced any regressions
with my subrecord patch.


-- 


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