* 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 db94aa6..1490ed1 100644 (file)
--- 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 382bbbe..84a62e8 100644 (file)
--- 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: