diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2017-01-13 21:53:16 +0200 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2017-01-13 21:53:16 +0200 |
| commit | c1e9bbcc49c1b9f169c5911f3871f5df109bff9b (patch) | |
| tree | bf815e2471d2b7f7e44d76a31e98cc1d05e07b34 /gcc/fortran/dump-parse-tree.c | |
| parent | be4aa83d6ff4720fffd2c9f62c6e3082ece1937f (diff) | |
| download | gcc-c1e9bbcc49c1b9f169c5911f3871f5df109bff9b.tar.gz | |
Revert r244448
From-SVN: r244454
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 65b47de8dd0..36fc4cc0969 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++) { |