re PR lto/86321 (ICE: in splice_child_die, at dwarf2out.c:5693 for several Fortran...

2018-07-02  Richard Biener  <rguenther@suse.de>

	PR lto/86321
	* trans-types.c (gfc_get_array_type_bounds): Unshare TYPE_FIELDs
	for the distinct type copy.

From-SVN: r262301

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b8e71975672146212af29cbd470e290e5b9fe6a9..ac4a2374fe56a9dc382ff1c477dd4b1a640d6993 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2018-07-02  Richard Biener  <rguenther@suse.de>
+
+       PR lto/86321
+       * trans-types.c (gfc_get_array_type_bounds): Unshare TYPE_FIELDs
+       for the distinct type copy.
+
 2018-07-02  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/82969

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index f50eb0a9f01d809839ae05fde06df5251b43b4ca..5b396236f8555b4e24bf365dd5bdcb18afe67a27 100644 (file)
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -1923,6 +1923,14 @@ gfc_get_array_type_bounds (tree etype, int dimen, int codimen, tree * lbound,
 
   base_type = gfc_get_array_descriptor_base (dimen, codimen, restricted);
   fat_type = build_distinct_type_copy (base_type);
+  /* Unshare TYPE_FIELDs.  */
+  for (tree *tp = &TYPE_FIELDS (fat_type); *tp; tp = &DECL_CHAIN (*tp))
+    {
+      tree next = DECL_CHAIN (*tp);
+      *tp = copy_node (*tp);
+      DECL_CONTEXT (*tp) = fat_type;
+      DECL_CHAIN (*tp) = next;
+    }
   /* Make sure that nontarget and target array type have the same canonical
      type (and same stub decl for debug info).  */
   base_type = gfc_get_array_descriptor_base (dimen, codimen, false);