[gfortran] Minor fix to trans-types.c

[Paul Brook]

On Sunday 16 January 2005 15:35, Tobias Schlüter wrote:
> Paul Brook wrote:
> >>-  bounds = build_range_type (gfc_array_index_type, gfc_index_one_node,
> >>len);
> >>+  bounds = build_range_type (gfc_charlen_type_node,
> >>gfc_index_one_node, len);
> >
> > The bounds should probably also be of type gfc_charlen_type_node.
>
> You mean on that same line?  I verified that build_range_type (type, a, b)
> does the right thing, i.e. convert a and b to type, so this isn't
> necessary.

Ok. Patch approved.

Paul