Commit 4c1dd580 by Steven G. Kargl Committed by Steven G. Kargl

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
parent 30d2e943
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> 2005-05-26 Kazu Hirata <kazu@cs.umass.edu>
* data.c, parse.c, trans-array.c, trans-decl.c, * data.c, parse.c, trans-array.c, trans-decl.c,
......
...@@ -4000,7 +4000,8 @@ gfc_trans_deferred_array (gfc_symbol * sym, tree body) ...@@ -4000,7 +4000,8 @@ gfc_trans_deferred_array (gfc_symbol * sym, tree body)
deallocate = gfc_array_deallocate (descriptor); deallocate = gfc_array_deallocate (descriptor);
tmp = gfc_conv_descriptor_data (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 ()); tmp = build3_v (COND_EXPR, tmp, deallocate, build_empty_stmt ());
gfc_add_expr_to_block (&block, tmp); gfc_add_expr_to_block (&block, tmp);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment