From: Francois-Xavier Coudert Date: Sat, 10 May 2008 16:39:27 +0000 (+0000) Subject: re PR fortran/36197 ([4.4 Regressio]: gfortran.dg/initialization_12.f90) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1ed5323bb8248a7b2fe1c0fd3409a55b2bf69797;p=gcc.git re PR fortran/36197 ([4.4 Regressio]: gfortran.dg/initialization_12.f90) PR fortran/36197 * module.c (quote_string): Fix sprintf format. From-SVN: r135154 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e93c004d5ce..e635842f9c5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2008-05-10 Francois-Xavier Coudert + + PR fortran/36197 + * module.c (quote_string): Fix sprintf format. + 2008-05-09 Francois-Xavier Coudert PR fortran/36162 diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 2c3d88ac643..ef2faf7c882 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -1502,7 +1502,7 @@ quote_string (const gfc_char_t *s, const size_t slength) *q++ = '\\', *q++ = '\\'; else if (!gfc_wide_is_printable (*p)) { - sprintf (q, "\\U%08" HOST_WIDE_INT_PRINT "ux", + sprintf (q, "\\U%08" HOST_WIDE_INT_PRINT "x", (unsigned HOST_WIDE_INT) *p); q += 10; }