[gfortran] PATCH Fix PR 20058

[Steve Kargl]

On Mon, Feb 21, 2005 at 07:49:01PM +0100, Tobias Schl?ter wrote:
> Steve Kargl wrote:
> > @@ -132,6 +136,9 @@
> >        gfc_logical_kinds[i_index].kind = kind;
> >        gfc_logical_kinds[i_index].bit_size = bitsize;
> >  
> > +      if (kind > gfc_max_integer_kind)
> > +	gfc_max_integer_kind = kind;
> > +
> >        i_index += 1;
> >      }
> >  
> Minor suggestion: you could just put
>   gfc_max_integer_kind = gfc_integer_kinds[i_index - 1].kind;
> after the loop because IIUC the loop will always go from lowest bit-width to
> largest.
> 

OK, I'll update the patch.

-- 
Steve