From: fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 10 May 2008 16:39:27 +0000 (+0000)
Subject: 	PR fortran/36197
X-Git-Tag: upstream/4.9.2~42282
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a65f65bce7714a76a26c439cf529b5ee8d1587fe;p=platform%2Fupstream%2Flinaro-gcc.git

	PR fortran/36197
	* module.c (quote_string): Fix sprintf format.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135154 138bc75d-0d04-0410-961f-82ee72b054a4
---

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