From: Thomas Koenig Date: Mon, 24 Jul 2017 10:36:30 +0000 (+0000) Subject: dump-parse-tree.c (show_symbol): Show binding label if present. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=cedc228d1c0feef83c36ccbeb7faa26c53af1b18;p=gcc.git 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 --- 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 ();