[gfortran] Minor fix to trans-types.c

[Paul Brook]

On Sunday 09 January 2005 19:17, Tobias Schlüter wrote:
> Index: trans-types.c
> ===================================================================
> RCS file: /cvs/gcc/gcc/gcc/fortran/trans-types.c,v
> retrieving revision 1.33
> diff -u -p -r1.33 trans-types.c
> --- trans-types.c       16 Nov 2004 02:02:37 -0000      1.33
> +++ trans-types.c       9 Jan 2005 18:32:50 -0000
> @@ -580,7 +580,7 @@ gfc_get_character_type_len (int kind, tr
>
>    gfc_validate_kind (BT_CHARACTER, kind, false);
>
> -  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.

Paul