From 1ed5323bb8248a7b2fe1c0fd3409a55b2bf69797 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sat, 10 May 2008 16:39:27 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/module.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e93c004..e635842 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 2c3d88a..ef2faf7 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; } -- 2.7.4