From 0ae5012d0b020670979570dbc075734c19c88d93 Mon Sep 17 00:00:00 2001 From: burnus Date: Thu, 29 Nov 2012 08:43:48 +0000 Subject: 2012-11-28 Tobias Burnus PR fortran/52161 * trans-stmt.c (gfc_trans_sync): Fix bound checking for -fcoarray=lib. 2012-11-28 Tobias Burnus PR fortran/52161 * coarray/sync_3.f90: Extend test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@193924 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-stmt.c | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cc996fe2d55..9530339e606 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2012-11-28 Tobias Burnus + + PR fortran/52161 + * trans-stmt.c (gfc_trans_sync): Fix bound checking + for -fcoarray=lib. + 2012-11-28 Tobias Burnus PR fortran/52161 diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 0c88c4aeda2..79dc27d903b 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -784,12 +784,12 @@ gfc_trans_sync (gfc_code *code, gfc_exec_op type) else { tree cond2; - cond = fold_build2_loc (input_location, GE_EXPR, boolean_type_node, + cond = fold_build2_loc (input_location, GT_EXPR, boolean_type_node, images, gfort_gvar_caf_num_images); cond2 = fold_build2_loc (input_location, LT_EXPR, boolean_type_node, images, build_int_cst (TREE_TYPE (images), 1)); - cond = fold_build2_loc (input_location, TRUTH_AND_EXPR, + cond = fold_build2_loc (input_location, TRUTH_OR_EXPR, boolean_type_node, cond, cond2); } gfc_trans_runtime_check (true, false, cond, &se.pre, -- cgit v1.2.1