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

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 82adf769b50bd6c55f3b38a048dc9d0174127af1..028f4be6e0fa8eecdb73fb7fb49671a4973a3378 100644 (file)
--- 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 0de2a0f1d6a25b92012d121a82895c52d3959c4f..e981726e7d0b6adb01846d5c99558ab3ab661363 100644 (file)
--- 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);