From 28ed836457b3069ec6b248420784d8de7d650d30 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sat, 1 Aug 2015 18:37:25 +0000 Subject: re PR fortran/67091 ([OOP] Bad result for type-bound procedures returning pointers to the intrinsic function ASSOCIATED) 2015-08-01 Paul Thomas PR fortran/67091 * trans-intrinsic.c (gfc_conv_associated): Add the pre and post blocks for the second argument to se. 2015-08-01 Paul Thomas PR fortran/67091 * gfortran.dg/associated_target_6.f03: New test From-SVN: r226464 --- gcc/fortran/trans-intrinsic.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/fortran/trans-intrinsic.c') diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 967a741..1aa299b 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -6667,6 +6667,8 @@ gfc_conv_associated (gfc_se *se, gfc_expr *expr) arg2se.expr); gfc_add_block_to_block (&se->pre, &arg1se.pre); gfc_add_block_to_block (&se->post, &arg1se.post); + gfc_add_block_to_block (&se->pre, &arg2se.pre); + gfc_add_block_to_block (&se->post, &arg2se.post); tmp = fold_build2_loc (input_location, EQ_EXPR, boolean_type_node, arg1se.expr, arg2se.expr); tmp2 = fold_build2_loc (input_location, NE_EXPR, boolean_type_node, -- cgit v1.1