diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-05-27 18:20:52 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-05-27 18:20:52 +0000 |
| commit | 4c1dd580b3ee35309bc86ebce512eb18bb81324e (patch) | |
| tree | 5ab73027d91c699389345eeb1757c09e17b1c405 /gcc/fortran/trans-array.c | |
| parent | 30d2e94365655dae5bccb24797f97f5260da3154 (diff) | |
| download | gcc-4c1dd580b3ee35309bc86ebce512eb18bb81324e.zip gcc-4c1dd580b3ee35309bc86ebce512eb18bb81324e.tar.gz gcc-4c1dd580b3ee35309bc86ebce512eb18bb81324e.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 3 |
1 files changed, 2 insertions, 1 deletions
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); |