From 19db01bb4587701a48494f8ec1ef18933652a614 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sat, 5 Mar 2005 21:14:52 +0100 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-const.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index db94aa67b27..1490ed1ebcc 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-03-05 Tobias Schl"uter + + * trans-const.c (gfc_conv_constant_to_tree): Use correct tree + type for COMPLEX constants. + 2005-03-04 Tobias Schl"uter PR fortran/19673 diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c index 382bbbeee52..84a62e89e3b 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: -- 2.30.2