Hi, I just committed the patch below as obvious.
Index: ChangeLog =================================================================== --- ChangeLog (revision 257256) +++ ChangeLog (working copy) @@ -1,5 +1,10 @@ 2018-01-31 Janne Blomqvist <j...@gcc.gnu.org> + * trans-const.c (gfc_conv_string_init): Use gfc_charlen_t instead + of int for slen. + +2018-01-31 Janne Blomqvist <j...@gcc.gnu.org> + PR fortran/78534 * trans-expr.c (fill_with_spaces): Use memset instead of generating loop. Index: trans-const.c =================================================================== --- trans-const.c (revision 257256) +++ trans-const.c (working copy) @@ -141,7 +141,7 @@ gfc_conv_string_init (tree length, gfc_e { gfc_char_t *s; HOST_WIDE_INT len; - int slen; + gfc_charlen_t slen; tree str; bool free_s = false; -- Janne Blomqvist