From: Thomas Koenig <tkoenig@gcc.gnu.org>
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  <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 96b445afb79..613a70940b7 100644
--- 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 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 ();