diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index face053..b5a4975 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-05-27 Steven G. Kargl <kargls@comcast.net> + + * trans-array.c (gfc_trans_deferred_array): Use build_int_cst to force + like types in comparsion. + 2005-05-26 Kazu Hirata <kazu@cs.umass.edu> * data.c, parse.c, trans-array.c, trans-decl.c, diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 4d95b2e..6dc33d3 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -4000,7 +4000,8 @@ gfc_trans_deferred_array (gfc_symbol * sym, tree body) deallocate = gfc_array_deallocate (descriptor); tmp = gfc_conv_descriptor_data (descriptor); - tmp = build2 (NE_EXPR, boolean_type_node, tmp, integer_zero_node); + tmp = build2 (NE_EXPR, boolean_type_node, tmp, + build_int_cst (TREE_TYPE (tmp), 0)); tmp = build3_v (COND_EXPR, tmp, deallocate, build_empty_stmt ()); gfc_add_expr_to_block (&block, tmp); |