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

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

gcc/fortran/ChangeLog

+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

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);