(build_complex): Set the TREE_TYPE based on real part.

From-SVN: r3625

1 files changed, 1 insertions, 0 deletions

diff --git a/gcc/tree.c b/gcc/tree.c
index 8fe09a1..36f5a94 100644
--- a/gcc/tree.c
+++ b/gcc/tree.c
@@ -1227,6 +1227,7 @@ build_complex (real, imag)
   register tree t = make_node (COMPLEX_CST);
   TREE_REALPART (t) = real;
   TREE_IMAGPART (t) = imag;
+  TREE_TYPE (t) = build_complex_type (TREE_TYPE (real));
   return t;
 }