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;