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.

From-SVN: r93729

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index cc89f45c80970f5ef180bccda22068926d8d6048..d9c65b00aec354a87c6d90cec7853dcf2af48f5d 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/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

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index 019986e3dbb819193a51b90d16b7c620327233e7..34aace2996ab4c3e94443d7aad0f00566bc87cdb 100644 (file)
--- a/gcc/fortran/trans-types.c
+++ b/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;