From 996d027a36c646fbb0098e96c83dbb4c0ea5133d Mon Sep 17 00:00:00 2001 From: Alessandro Fanfarillo Date: Fri, 17 Jul 2015 06:18:44 -0600 Subject: Fix fortran double address operator with co_reduce gcc/fortran/ 2015-07-17 Alessandro Fanfarillo * trans-intrinsic.c (conv_co_collective): Remove redundant address operator in the generated code. gcc/testsuite/ 2015-07-17 Alessandro Fanfarillo * gfortran.dg/co_reduce_1.f90: New file. From-SVN: r225930 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-intrinsic.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 33b8cbb..d082f0b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2015-07-17 Alessandro Fanfarillo + + * trans-intrinsic.c (conv_co_collective): Remove redundant address + operator in the generated code. + 2015-07-17 Andre Vehreschild PR fortran/66035 diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 66bc72a..967a741 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -8804,7 +8804,7 @@ conv_co_collective (gfc_code *code) } opr_flags = build_int_cst (integer_type_node, opr_flag_int); gfc_conv_expr (&argse, opr_expr); - opr = gfc_build_addr_expr (NULL_TREE, argse.expr); + opr = argse.expr; fndecl = build_call_expr_loc (input_location, fndecl, 8, array, opr, opr_flags, image_index, stat, errmsg, strlen, errmsg_len); } -- cgit v1.1