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

+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

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;
 	}