diff options
author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-10 16:39:27 +0000 |
---|---|---|
committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-10 16:39:27 +0000 |
commit | 1ed5323bb8248a7b2fe1c0fd3409a55b2bf69797 (patch) | |
tree | 99ca0893d491387fcdc14cd40e245390c13dcc6e /gcc/fortran | |
parent | 36d6d97993554c36ba31e1d1f6193b96d581ed18 (diff) | |
download | gcc-1ed5323bb8248a7b2fe1c0fd3409a55b2bf69797.zip gcc-1ed5323bb8248a7b2fe1c0fd3409a55b2bf69797.tar.gz gcc-1ed5323bb8248a7b2fe1c0fd3409a55b2bf69797.tar.bz2 |
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
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/fortran/module.c | 2 |
2 files changed, 6 insertions, 1 deletions
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; } |