From: tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 5 Mar 2005 20:14:52 +0000 (+0000)
Subject: * trans-const.c (gfc_conv_constant_to_tree): Use correct tree
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=f680b43ee143db4756e3789eb986393079b9801b;p=thirdparty%2Fgcc.git

* trans-const.c (gfc_conv_constant_to_tree): Use correct tree
type for COMPLEX constants.


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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index db94aa67b27d..1490ed1ebccd 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-05  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* trans-const.c (gfc_conv_constant_to_tree): Use correct tree
+	type for COMPLEX constants.
+
 2005-03-04  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
 
 	PR fortran/19673
diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c
index 382bbbeee52b..84a62e89e3b6 100644
--- a/gcc/fortran/trans-const.c
+++ b/gcc/fortran/trans-const.c
@@ -316,7 +316,8 @@ gfc_conv_constant_to_tree (gfc_expr * expr)
 	tree imag = gfc_conv_mpfr_to_tree (expr->value.complex.i,
 					  expr->ts.kind);
 
-	return build_complex (NULL_TREE, real, imag);
+	return build_complex (gfc_typenode_for_spec (&expr->ts),
+			      real, imag);
       }
 
     case BT_CHARACTER: