[Bug fortran/83704] pr31243 revisited

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83704

--- Comment #6 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> 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;