Use gfc_charlen_t instead of int in gfc_conv_string_init

Committed as obvious.

2018-01-31  Janne Blomqvist  <jb@gcc.gnu.org>

        * trans-const.c (gfc_conv_string_init): Use gfc_charlen_t instead
        of int for slen.

From-SVN: r257258

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8f9cafc96bb56ef5faaf3186a41f95ad7e3be5e1..82adf769b50bd6c55f3b38a048dc9d0174127af1 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2018-01-31  Janne Blomqvist  <jb@gcc.gnu.org>
+
+       * trans-const.c (gfc_conv_string_init): Use gfc_charlen_t instead
+       of int for slen.
+
 2018-01-31  Janne Blomqvist  <jb@gcc.gnu.org>
 
        PR fortran/78534

diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c
index 4b6adbf078631183494fd00769f87969cb0ba1b8..07950dc1ba9a25c275fa3cf4ce759e2bcdfce6c9 100644 (file)
--- a/gcc/fortran/trans-const.c
+++ b/gcc/fortran/trans-const.c
@@ -141,7 +141,7 @@ gfc_conv_string_init (tree length, gfc_expr * expr)
 {
   gfc_char_t *s;
   HOST_WIDE_INT len;
-  int slen;
+  gfc_charlen_t slen;
   tree str;
   bool free_s = false;