https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83704
--- Comment #7 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
(In reply to Dominique d'Humieres from comment #6)
> > However this does not fix the output of
>
> print *, "'", ch(1:2_8**32_8+3_8), "'"
>
> This is fixed by the following patch
>
> --- ../_clean/libgfortran/io/write.c 2018-01-05 20:02:38.000000000 +0100
> +++ libgfortran/io/write.c 2018-01-06 17:43:04.000000000 +0100
> @@ -1358,7 +1359,7 @@ write_integer (st_parameter_dt *dtp, con
> #define NODELIM 0
>
> static void
> -write_character (st_parameter_dt *dtp, const char *source, int kind, int
> length, int mode)
> +write_character (st_parameter_dt *dtp, const char *source, int kind, size_t
> length, int mode)
> {
> int i, extra;
> char *p, d;
Approved, make it so, and good catch!
