From: Andrew Pinski <pinskia@physics.uc.edu>
Date: Fri, 8 Jul 2005 18:05:04 +0000 (+0000)
Subject: re PR tree-optimization/22356 (mis-match types in cplxlower)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d5c77941577bbb6ace7a8e13dfca2c3b61a4ded9;p=gcc.git

re PR tree-optimization/22356 (mis-match types in cplxlower)

2005-07-08  Andrew Pinski  <pinskia@physics.uc.edu>

        PR tree-opt/22356
        * testsuite/gcc.dg/pr22356-1.c: New test.

2005-07-08  Andrew Pinski  <pinskia@physics.uc.edu>

        PR tree-opt/22356
        * tree-complex.c (expand_complex_libcall): Produce
        REALPART_EXPR/IMAGPART_EXPR with the correct type.

From-SVN: r101781
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index b4ae5cd05cf..88c127f9ed9 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2005-07-08  Andrew Pinski  <pinskia@physics.uc.edu>
+
+	PR tree-opt/22356
+	* tree-complex.c (expand_complex_libcall): Produce
+	REALPART_EXPR/IMAGPART_EXPR with the correct type.
+
 2005-07-08  Kenneth Zadeck <zadeck@naturalbridge.com>
 
 	* bitmap.c (bitmap_and, bitmap_and_into, bitmap_and_compl,
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8bfd32bbf0a..ac82940d427 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-07-08  Andrew Pinski  <pinskia@physics.uc.edu>
+
+	PR tree-opt/22356
+	* testsuite/gcc.dg/pr22356-1.c: New test.
+
 2005-07-08  Nathan Sidwell  <nathan@codesourcery.com>
 
 	PR c++/21799
diff --git a/gcc/testsuite/gcc.dg/pr22356-1.c b/gcc/testsuite/gcc.dg/pr22356-1.c
new file mode 100644
index 00000000000..118b0b2d3ae
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/pr22356-1.c
@@ -0,0 +1,11 @@
+/* { dg-do compile } */
+/* { dg-options "-O2 -std=gnu99" } */
+typedef _Complex float GFC_COMPLEX_4;
+void product_c4 (GFC_COMPLEX_4 *src, GFC_COMPLEX_4 *dest, int len)
+{
+  int n;
+  GFC_COMPLEX_4 result;
+  for (n = 0; n < len; n++, src += 1)
+    result *= *src;
+  *dest = result;
+}
diff --git a/gcc/tree-complex.c b/gcc/tree-complex.c
index e32dd237be8..21e92456051 100644
--- a/gcc/tree-complex.c
+++ b/gcc/tree-complex.c
@@ -833,6 +833,7 @@ expand_complex_libcall (block_stmt_iterator *bsi, tree ar, tree ai,
   if (in_ssa_p)
     {
       tree lhs = TREE_OPERAND (stmt, 0);
+      type = TREE_TYPE (type);
       update_complex_components (bsi, stmt,
 				 build1 (REALPART_EXPR, type, lhs),
 				 build1 (IMAGPART_EXPR, type, lhs));