trans-types.c (gfc_get_character_type_len): : Use gfc_charlen_type_node as basic…

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

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

From-SVN: r93729

gcc/fortran/ChangeLog

@@ -4,6 +4,9 @@
 	unsigned issue.  Use build_int_cst instead of converting
 	integer_zero_node.  Remove unnecessary conversion.
 
+	* trans-types.c (gfc_get_character_type_len): : Use
+	gfc_charlen_type_node as basic type for the range field.
+
 2005-01-16  Steven G. Kargl  <kargls@comcast.net>
 
 	PR 19168

gcc/fortran/trans-types.c

@@ -580,7 +580,7 @@ gfc_get_character_type_len (int kind, tree len)
 
   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;