From c1e9bbcc49c1b9f169c5911f3871f5df109bff9b Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Fri, 13 Jan 2017 21:53:16 +0200 Subject: Revert r244448 From-SVN: r244454 --- gcc/fortran/dump-parse-tree.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'gcc/fortran/dump-parse-tree.c') 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++) { -- cgit v1.1