diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-11-28 22:42:17 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-11-28 22:42:17 +0100 |
| commit | 74c49505d071e2d5d81a8b9e1708f35f81eab09d (patch) | |
| tree | c54635fb4a56ad48342b35f88e7c39076ad69adf /gcc/fortran/trans-stmt.c | |
| parent | f4919e4a824372c70af64a80e16db4de995bdc3c (diff) | |
| download | gcc-74c49505d071e2d5d81a8b9e1708f35f81eab09d.tar.gz | |
re PR fortran/52161 (Internal compiler errors with -fcheck=bounds in coarray tests)
2012-11-28 Tobias Burnus <burnus@net-b.de>
PR fortran/52161
* trans-stmt.c (gfc_trans_sync): Fix bound checking.
2012-11-28 Tobias Burnus <burnus@net-b.de>
PR fortran/52161
* coarray/sync_3.f90: New.
From-SVN: r193908
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index bdc559b4274..0c88c4aeda2 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -795,7 +795,7 @@ gfc_trans_sync (gfc_code *code, gfc_exec_op type) gfc_trans_runtime_check (true, false, cond, &se.pre, &code->expr1->where, "Invalid image number " "%d in SYNC IMAGES", - fold_convert (integer_type_node, se.expr)); + fold_convert (integer_type_node, images)); } /* Per F2008, 8.5.1, a SYNC MEMORY is implied by calling the |