From 4c1dd580b3ee35309bc86ebce512eb18bb81324e Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Fri, 27 May 2005 18:20:52 +0000 Subject: [PATCH] trans-array.c (gfc_trans_deferred_array): Use build_int_cst to force like types in comparsion. * trans-array.c (gfc_trans_deferred_array): Use build_int_cst to force like types in comparsion. From-SVN: r100269 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-array.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index face053f14b..b5a49754024 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-05-27 Steven G. Kargl + + * trans-array.c (gfc_trans_deferred_array): Use build_int_cst to force + like types in comparsion. + 2005-05-26 Kazu Hirata * 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 4d95b2e89b2..6dc33d3da63 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);