diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 96b445a..613a709 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,8 @@ 2017-07-24 Thomas Koenig <tkoenig@gcc.gnu.org> + + * dump-parse-tree.c (show_symbol): Show binding label if present. + +2017-07-24 Thomas Koenig <tkoenig@gcc.gnu.org> Mikael Morin <mikael@gcc.gnu.org> PR fortran/66102 diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 5b692e1..46b3705 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -857,6 +857,9 @@ show_symbol (gfc_symbol *sym) for (i=len; i<12; i++) fputc(' ', dumpfile); + if (sym->binding_label) + fprintf (dumpfile,"|| binding_label: '%s' ", sym->binding_label); + ++show_level; show_indent (); |