* arith.c (character2representation): Change i type to size_t.

From-SVN: r277978

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 18e4c023f8a2a9acfdd3bee146831527d883a146..bf1f8cf3a70a32ba63d613e3da0977c053b55798 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,11 +1,16 @@
+2019-11-08  Jakub Jelinek  <jakub@redhat.com>
+
+       * arith.c (character2representation): Change i type to size_t.
+
 2019-11-08  Mark Eggleston  <mark.eggleston@codethink.com>
-       Jim MacArthur  <jim.macarthur@codethink.co.uk>
+           Jim MacArthur  <jim.macarthur@codethink.co.uk>
 
        * arith.c (hollerith2representation): Use OPT_Wcharacter_truncation in
-       call to gfc_warning.  Add character2representation, gfc_character2int,
-       gfc_character2real, gfc_character2complex and gfc_character2logical.
-       * arith.h: Add prototypes for gfc_character2int, gfc_character2real,
-       gfc_character2complex and gfc_character2logical.
+       call to gfc_warning.
+       (character2representation, gfc_character2int, gfc_character2real,
+       gfc_character2complex and gfc_character2logical): New.
+       * arith.h (gfc_character2int, gfc_character2real, gfc_character2complex,
+       gfc_character2logical): Declare.
        * expr.c (gfc_check_assign): Return true if left hand side is numeric
        or logical and the right hand side is character and of kind=1.
        * gfortran.texi: Add -fdec-char-conversions.

diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c
index 10b3e5c103f1fdee01b69d4c3c4e3c1dcbe57765..a40163e8a2db3bce670e47bf4f8a05097e5aa185 100644 (file)
--- a/gcc/fortran/arith.c
+++ b/gcc/fortran/arith.c
@@ -2534,8 +2534,7 @@ hollerith2representation (gfc_expr *result, gfc_expr *src)
 static void
 character2representation (gfc_expr *result, gfc_expr *src)
 {
-  size_t src_len, result_len;
-  int i;
+  size_t src_len, result_len, i;
   src_len = src->value.character.length;
   gfc_target_expr_size (result, &result_len);