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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 96b445afb79cae97da90a3ec4ab9e3dcc0dcd52f..613a70940b7ef79cb8dc108c65813a9265748445 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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>
 

diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 5b692e1ea9c0ac1f6652bfa7446f48dbe8d2b8b0..46b3705f4f86eb2f0670b7127e056ad91580eea4 100644 (file)
--- 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 ();