dump-parse-tree.c (show_symbol): Show binding label if present.

2017-07-24  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* dump-parse-tree.c (show_symbol):  Show binding label if present.

From-SVN: r250472
This commit is contained in:
Thomas Koenig 2017-07-24 10:36:30 +00:00
parent 213c3b7b7c
commit cedc228d1c
2 changed files with 7 additions and 0 deletions

View File

@ -1,3 +1,7 @@
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>

View File

@ -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 ();