From cedc228d1c0feef83c36ccbeb7faa26c53af1b18 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Mon, 24 Jul 2017 10:36:30 +0000 Subject: [PATCH] dump-parse-tree.c (show_symbol): Show binding label if present. 2017-07-24 Thomas Koenig * dump-parse-tree.c (show_symbol): Show binding label if present. From-SVN: r250472 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/dump-parse-tree.c | 3 +++ 2 files changed, 7 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 96b445afb79..613a70940b7 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2017-07-24 Thomas Koenig + + * dump-parse-tree.c (show_symbol): Show binding label if present. + 2017-07-24 Thomas Koenig Mikael Morin diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 5b692e1ea9c..46b3705f4f8 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 (); -- 2.30.2