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

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

From-SVN: r95941

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index db94aa67b27dab7042f63f528c73b97e3b8e29ab..1490ed1ebccd3e09ae70391953ff839c993714f5 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 382bbbeee52bebd0f450719e0cc16aaaa157f5ef..84a62e89e3b680f453262318a5f1ac4e83fabd0d 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: