From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Wed, 31 Jan 2018 20:20:54 +0000 (+0000)
Subject: dump-parse-tree.c (write_proc): Use sym_name (which may be sym->binding_label) instea... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=125a677d029d94dfda7e0205ded2ffdcee595321;p=gcc.git

dump-parse-tree.c (write_proc): Use sym_name (which may be sym->binding_label) instead of sym->name.

2018-01-31  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* dump-parse-tree.c (write_proc): Use sym_name (which may
	be sym->binding_label) instead of sym->name.

From-SVN: r257260
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 82adf769b50..028f4be6e0f 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2018-01-31  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	* dump-parse-tree.c (write_proc): Use sym_name (which may
+	be sym->binding_label) instead of sym->name.
+
 2018-01-31  Janne Blomqvist  <jb@gcc.gnu.org>
 
 	* trans-const.c (gfc_conv_string_init): Use gfc_charlen_t instead
@@ -17,7 +22,7 @@
 	* trans-array.c (gfc_get_descriptor_offsets_for_info): Set *data_off
 	to DATA_FIELD's offset rather than OFFSET_FIELD's offset.
 
-2017-01-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
+2018-01-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR fortran/84134
 	* array.c (gfc_ref_dimen_size): Whitespace fixes.  If stride is
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 0de2a0f1d6a..e981726e7d0 100644
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -3227,7 +3227,7 @@ write_proc (gfc_symbol *sym)
       fputs (sym_name, dumpfile);
     }
   else
-    write_decl (&(sym->ts), sym->as, sym->name, true, &sym->declared_at);
+    write_decl (&(sym->ts), sym->as, sym_name, true, &sym->declared_at);
 
   fputs (" (", dumpfile);