diff options
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index c5e7b67..942b401 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -610,18 +610,17 @@ simplify_transformation_to_array (gfc_expr *result, gfc_expr *array, gfc_expr *d n++; if (n < result->rank) { -#pragma GCC diagnostic push /* If the nested loop is unrolled GFC_MAX_DIMENSIONS times, we'd warn for the last iteration, because the array index will have already been incremented to the array sizes, and we can't tell that this must make the test against result->rank false, because ranks must not exceed GFC_MAX_DIMENSIONS. */ -#pragma GCC diagnostic ignored "-Warray-bounds" + GCC_DIAGNOSTIC_PUSH_IGNORED (-Warray-bounds) count[n]++; base += sstride[n]; dest += dstride[n]; -#pragma GCC diagnostic pop + GCC_DIAGNOSTIC_POP } else done = true; |