OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

From-SVN: r95941
This commit is contained in:
Tobias Schlüter 2005-03-05 21:14:52 +01:00 committed by Tobias Schlüter
parent 12bcfaa1cb
commit 19db01bb45
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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

3
gcc/fortran/trans-const.c
View File

@ -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: