[Bug fortran/83704] pr31243 revisited

[jvdelisle at gcc dot gnu.org]

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!