diff options
Diffstat (limited to 'gcc/fortran/trans-intrinsic.c')
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 75bd20a..e21d52f 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -1196,8 +1196,7 @@ trans_image_index (gfc_se * se, gfc_expr *expr) boolean_type_node, invalid_bound, cond); } - invalid_bound = gfc_unlikely (invalid_bound); - + invalid_bound = gfc_unlikely (invalid_bound, PRED_FORTRAN_INVALID_BOUND); /* See Fortran 2008, C.10 for the following algorithm. */ |