From: Jakub Jelinek <jakub@redhat.com>
Date: Mon, 25 Jun 2018 17:53:06 +0000 (+0200)
Subject: backport: re PR middle-end/85878 (ICE in convert_mode_scalar, at expr.c:287)
X-Git-Tag: releases/gcc-6.5.0~185
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4853ffddf92a3766de28110f38d98e71840edda0;p=thirdparty%2Fgcc.git

backport: re PR middle-end/85878 (ICE in convert_mode_scalar, at expr.c:287)

	Backported from mainline
	2018-06-15  Jakub Jelinek  <jakub@redhat.com>

	PR middle-end/85878
	* expr.c (expand_assignment): Only call store_expr for halves if the
	mode is the same.

	* gfortran.fortran-torture/compile/pr85878.f90: New test.

From-SVN: r262100
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index be59bb0fdc20..46c2423d2c6a 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,6 +1,12 @@
 2018-06-25  Jakub Jelinek  <jakub@redhat.com>
 
 	Backported from mainline
+	2018-06-15  Jakub Jelinek  <jakub@redhat.com>
+
+	PR middle-end/85878
+	* expr.c (expand_assignment): Only call store_expr for halves if the
+	mode is the same.
+
 	2018-06-14  Jakub Jelinek  <jakub@redhat.com>
 
 	PR target/85945
diff --git a/gcc/expr.c b/gcc/expr.c
index 236db059ca38..df9ac81b6c97 100644
--- a/gcc/expr.c
+++ b/gcc/expr.c
@@ -4959,7 +4959,10 @@ expand_assignment (tree to, tree from, bool nontemporal)
 	      && bitpos == 0
 	      && bitsize == mode_bitsize)
 	    result = store_expr (from, to_rtx, false, nontemporal, reversep);
-	  else if (bitsize == mode_bitsize / 2
+	  else if (COMPLEX_MODE_P (GET_MODE (to_rtx))
+		   && (TYPE_MODE (TREE_TYPE (from))
+		       == GET_MODE_INNER (GET_MODE (to_rtx)))
+		   && bitsize == mode_bitsize / 2
 		   && (bitpos == 0 || bitpos == mode_bitsize / 2))
 	    result = store_expr (from, XEXP (to_rtx, bitpos != 0), false,
 				 nontemporal, reversep);
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8d072f2fc919..5879011da3b9 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,6 +1,11 @@
 2018-06-25  Jakub Jelinek  <jakub@redhat.com>
 
 	Backported from mainline
+	2018-06-15  Jakub Jelinek  <jakub@redhat.com>
+
+	PR middle-end/85878
+	* gfortran.fortran-torture/compile/pr85878.f90: New test.
+
 	2018-06-14  Jakub Jelinek  <jakub@redhat.com>
 
 	PR target/85945
diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/pr85878.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/pr85878.f90
new file mode 100644
index 000000000000..e52e95faa007
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/compile/pr85878.f90
@@ -0,0 +1,8 @@
+! PR middle-end/85878
+
+program pr85878
+  real :: a
+  complex :: c = (2.0, 3.0)
+  print *, c
+  print *, transfer (a, c)
+end