From: ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 24 Jun 2016 19:28:18 +0000 (+0000)
Subject: 	PR debug/71642
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=37681b7f035c64e2c777c4d6dc85edd31d2be400;p=thirdparty%2Fgcc.git

	PR debug/71642
	* tree-inline.c (remap_decl): When fixing up DECL_ORIGINAL_TYPE, just
	copy the type name.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@237771 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 71b818167eda..2bcf6b4fcdb7 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2016-06-24  Eric Botcazou  <ebotcazou@adacore.com>
+
+	PR debug/71642
+	* tree-inline.c (remap_decl): When fixing up DECL_ORIGINAL_TYPE, just
+	copy the type name.
+
 2016-06-24  Jakub Jelinek  <jakub@redhat.com>
 
 	PR tree-optimization/71647
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1ec279cf0eb3..bbb2214a7a07 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2016-06-24  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gfortran.dg/pr71642.f90: New test.
+
 2016-06-24  Jakub Jelinek  <jakub@redhat.com>
 
 	PR tree-optimization/71647
diff --git a/gcc/testsuite/gfortran.dg/pr71642.f90 b/gcc/testsuite/gfortran.dg/pr71642.f90
new file mode 100644
index 000000000000..53491d97c15a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr71642.f90
@@ -0,0 +1,27 @@
+! PR debug/71642
+! { dg-do compile }
+! { dg-options "-g" }
+
+MODULE gauss_colloc
+  INTEGER, PARAMETER :: dp=8
+CONTAINS
+SUBROUTINE collocGauss(h,h_inv,grid,poly,alphai,posi,max_r2,&
+        periodic,gdim,local_bounds,local_shift,poly_shift,scale,lgrid,error)
+    REAL(dp), DIMENSION(0:, 0:, 0:), &
+      INTENT(inout)                          :: grid
+    INTEGER, INTENT(inout), OPTIONAL :: lgrid
+    CONTAINS
+    SUBROUTINE kloop6
+    IF (kJump/=1 .AND. (ikstart+kmax-kstart>=ndim(2)+l_shift(2) .OR.&
+        ikstart2+kmin-kstart2<=l_ub(2)-ndim(2))) THEN
+        DO
+            DO k=kstart2,kend2,-1
+                IF ( PRESENT ( lgrid ) ) THEN
+                  grid(ik,ij,ii) = grid(ik,ij,ii) + p_v*res_k
+                END IF
+            END DO
+        END DO
+    END IF
+    END SUBROUTINE
+END SUBROUTINE
+END MODULE gauss_colloc
diff --git a/gcc/tree-inline.c b/gcc/tree-inline.c
index a0d9e934e6d9..ef588662ace4 100644
--- a/gcc/tree-inline.c
+++ b/gcc/tree-inline.c
@@ -377,7 +377,7 @@ remap_decl (tree decl, copy_body_data *id)
 	    {
 	      tree x = build_variant_type_copy (TREE_TYPE (t));
 	      TYPE_STUB_DECL (x) = TYPE_STUB_DECL (TREE_TYPE (t));
-	      TYPE_NAME (x) = t;
+	      TYPE_NAME (x) = TYPE_NAME (TREE_TYPE (t));
 	      DECL_ORIGINAL_TYPE (t) = x;
 	    }
 	}