git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
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> 2017-07-24 Thomas Koenig <tkoenig@gcc.gnu.org>
Mikael Morin <mikael@gcc.gnu.org> Mikael Morin <mikael@gcc.gnu.org>

3
gcc/fortran/dump-parse-tree.c
View File

@ -857,6 +857,9 @@ show_symbol (gfc_symbol *sym)
for (i=len; i<12; i++) for (i=len; i<12; i++)
fputc(' ', dumpfile); fputc(' ', dumpfile);
if (sym->binding_label)
fprintf (dumpfile,"|| binding_label: '%s' ", sym->binding_label);
++show_level; ++show_level;
show_indent (); show_indent ();