* trans-types.c (gfc_get_character_type_len): : Use

gfc_charlen_type_node as basic type for the range field.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@93729 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index cc89f45..d9c65b0 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 019986e..34aace2 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;