------- Comment #6 from fxcoudert at gcc dot gnu dot org 2006-06-16 19:31
-------
I'm currently regtesting the following patch:
Index: trans-intrinsic.c
===================================================================
--- trans-intrinsic.c (revision 114721)
+++ trans-intrinsic.c (working copy)
@@ -2840,6 +2840,8 @@
gfc_conv_expr_lhs (&arg1se, arg1->expr);
tmp2 = gfc_conv_descriptor_data_get (arg1se.expr);
}
+ gfc_add_block_to_block (&se->pre, &arg1se.pre);
+ gfc_add_block_to_block (&se->post, &arg1se.post);
tmp = build2 (NE_EXPR, boolean_type_node, tmp2,
fold_convert (TREE_TYPE (tmp2), null_pointer_node));
se->expr = tmp;
--
fxcoudert at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |fxcoudert at gcc dot gnu dot
|dot org |org
Status|NEW |ASSIGNED
Keywords| |patch
Last reconfirmed|2006-06-07 10:55:24 |2006-06-16 19:31:10
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26801
