diff options
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 65b47de..36fc4cc 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -348,10 +348,12 @@ show_constructor (gfc_constructor_base base) static void -show_char_const (const gfc_char_t *c, gfc_charlen_t length) +show_char_const (const gfc_char_t *c, int length) { + int i; + fputc ('\'', dumpfile); - for (size_t i = 0; i < (size_t) length; i++) + for (i = 0; i < length; i++) { if (c[i] == '\'') fputs ("''", dumpfile); @@ -463,8 +465,7 @@ show_expr (gfc_expr *p) break; case BT_HOLLERITH: - fprintf (dumpfile, HOST_WIDE_INT_PRINT_DEC "H", - p->representation.length); + fprintf (dumpfile, "%dH", p->representation.length); c = p->representation.string; for (i = 0; i < p->representation.length; i++, c++) { |