diff options
author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-11-29 08:43:48 +0000 |
---|---|---|
committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-11-29 08:43:48 +0000 |
commit | 0ae5012d0b020670979570dbc075734c19c88d93 (patch) | |
tree | 9e247937530a52ba5d7580a0001818b5a24a5350 /gcc/fortran | |
parent | ee644e3cad12396c26b3e83c0a6882e63a427955 (diff) | |
download | gcc-0ae5012d0b020670979570dbc075734c19c88d93.tar.gz |
2012-11-28 Tobias Burnus <burnus@net-b.de>
PR fortran/52161
* trans-stmt.c (gfc_trans_sync): Fix bound checking
for -fcoarray=lib.
2012-11-28 Tobias Burnus <burnus@net-b.de>
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
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/trans-stmt.c | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cc996fe2d55..9530339e606 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,12 @@ 2012-11-28 Tobias Burnus <burnus@net-b.de> PR fortran/52161 + * trans-stmt.c (gfc_trans_sync): Fix bound checking + for -fcoarray=lib. + +2012-11-28 Tobias Burnus <burnus@net-b.de> + + PR fortran/52161 * trans-stmt.c (gfc_trans_sync): Fix bound checking. 2012-11-27 Tobias Burnus <burnus@net-b.de> 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, |