diff options
Diffstat (limited to 'libgfortran/generated/reshape_c8.c')
| -rw-r--r-- | libgfortran/generated/reshape_c8.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/libgfortran/generated/reshape_c8.c b/libgfortran/generated/reshape_c8.c index add90f2f205..24ec469bcab 100644 --- a/libgfortran/generated/reshape_c8.c +++ b/libgfortran/generated/reshape_c8.c @@ -119,6 +119,33 @@ reshape_c8 (gfc_array_c8 * const restrict ret, if (shape_empty) return; + if (unlikely (compile_options.bounds_check)) + { + if (order) + { + int seen[GFC_MAX_DIMENSIONS]; + index_type v; + + for (n = 0; n < rdim; n++) + seen[n] = 0; + + for (n = 0; n < rdim; n++) + { + v = order->data[n * order->dim[0].stride] - 1; + + if (v < 0 || v >= rdim) + runtime_error("Value %ld out of range in ORDER argument" + " to RESHAPE intrinsic", (long int) v + 1); + + if (seen[v] != 0) + runtime_error("Duplicate value %ld in ORDER argument to" + " RESHAPE intrinsic", (long int) v + 1); + + seen[v] = 1; + } + } + } + rsize = 1; for (n = 0; n < rdim; n++) { |