diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-01-13 19:53:16 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-01-13 19:53:16 +0000 |
| commit | ad64ae1c02f6d0d0280c72c975d3e56ddbafe528 (patch) | |
| tree | bf815e2471d2b7f7e44d76a31e98cc1d05e07b34 /gcc/fortran/dump-parse-tree.c | |
| parent | 2d9cba1ec16cd7cb27b2a61f38675be328d9c708 (diff) | |
Revert r244448
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@244454 138bc75d-0d04-0410-961f-82ee72b054a4
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 65b47de8dd03..36fc4cc09698 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++) { |