From: Janne Blomqvist <jb@gcc.gnu.org>
Date: Wed, 31 Jan 2018 19:44:47 +0000 (+0200)
Subject: Use gfc_charlen_t instead of int in gfc_conv_string_init
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=949b40a411d599d59efceaf47585db98763e5d71;p=gcc.git

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 8f9cafc96bb..82adf769b50 100644
--- 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 4b6adbf0786..07950dc1ba9 100644
--- 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;