[gfortran] Minor fix to trans-types.c

[Tobias Schlüter]

Just a small inconsistency I came across in trans-types.c.  Or is there a
reason this isn't gfc_charlen_type_node?

Bubblestrapped and tested. Ok?

- Tobi

2005-01-09  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>

	* trans-types.c (gfc_get_character_type_len): Use
	gfc_charlen_type_node as basic type for the range field.

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);
   type = build_array_type (gfc_character1_type_node, bounds);
   TYPE_STRING_FLAG (type) = 1;