diff options
| author | Richard Biener <rguenther@suse.de> | 2016-09-22 12:15:38 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2016-09-22 12:15:38 +0000 |
| commit | c813f2686aa230cf20ca954dee94b1019b7c364b (patch) | |
| tree | b36d87ac28037a7dbaa8da78ddb9c97733ec4f75 /gcc/expr.c | |
| parent | b8ffdd9730b00a64e85eb2e3881b9006932b41bb (diff) | |
| download | gcc-c813f2686aa230cf20ca954dee94b1019b7c364b.zip gcc-c813f2686aa230cf20ca954dee94b1019b7c364b.tar.gz gcc-c813f2686aa230cf20ca954dee94b1019b7c364b.tar.bz2 | |
re PR fortran/77678 (ICE in fold_read_from_constant_string, at fold-const.c:13706)
2016-09-22 Richard Biener <rguenther@suse.de>
PR middle-end/77678
* expr.c (expand_expr_real_1): Guard array access against negative
offset.
From-SVN: r240351
Diffstat (limited to 'gcc/expr.c')
| -rw-r--r-- | gcc/expr.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -10274,7 +10274,8 @@ expand_expr_real_1 (tree exp, rtx target, machine_mode tmode, fold_convert_loc (loc, sizetype, low_bound)); - if (compare_tree_int (index1, TREE_STRING_LENGTH (init)) < 0) + if (tree_fits_uhwi_p (index1) + && compare_tree_int (index1, TREE_STRING_LENGTH (init)) < 0) { tree type = TREE_TYPE (TREE_TYPE (init)); machine_mode mode = TYPE_MODE (type); |