diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-const.c | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index db94aa6..1490ed1 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 382bbbe..84a62e8 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: |