summaryrefslogtreecommitdiff
path: root/libgfortran/generated/cshift1_4.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/generated/cshift1_4.c')
-rw-r--r--libgfortran/generated/cshift1_4.c11
1 files changed, 11 insertions, 0 deletions
diff --git a/libgfortran/generated/cshift1_4.c b/libgfortran/generated/cshift1_4.c
index f048e8e401f..30f3d99dc35 100644
--- a/libgfortran/generated/cshift1_4.c
+++ b/libgfortran/generated/cshift1_4.c
@@ -98,6 +98,17 @@ cshift1 (gfc_array_char * const restrict ret,
GFC_DIMENSION_SET(ret->dim[i], 0, ub, str);
}
}
+ else if (unlikely (compile_options.bounds_check))
+ {
+ bounds_equal_extents ((array_t *) ret, (array_t *) array,
+ "return value", "CSHIFT");
+ }
+
+ if (unlikely (compile_options.bounds_check))
+ {
+ bounds_reduced_extents ((array_t *) h, (array_t *) array, which,
+ "SHIFT argument", "CSHIFT");
+ }
if (arraysize == 0)
return;