diff options
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index c195dcf977f..44a4941e7b4 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -301,7 +301,7 @@ show_constructor (gfc_constructor *c) static void -show_char_const (const char *c, int length) +show_char_const (const gfc_char_t *c, int length) { int i; @@ -310,10 +310,8 @@ show_char_const (const char *c, int length) { if (c[i] == '\'') fputs ("''", dumpfile); - else if (ISPRINT (c[i])) - fputc (c[i], dumpfile); else - fprintf (dumpfile, "' // ACHAR(%d) // '", c[i]); + fputs (gfc_print_wide_char (c[i]), dumpfile); } fputc ('\'', dumpfile); } |