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 e93c004d5ce61e16fbf2f679353033f3b9373253..e635842f9c5f1fc9cf27e1c92cfd0cf88bde8c9f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       PR fortran/36197
+       * module.c (quote_string): Fix sprintf format.
+
 2008-05-09  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        PR fortran/36162

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 2c3d88ac6437556fc56f1f30679d710ff7ed3125..ef2faf7c88237c34b5b1c125525a9a386e7c6027 100644 (file)
--- 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;
        }