re PR libfortran/19106 ([4.0 only] segfault in executable for print *,sum(a,dim=2...

[thirdparty/gcc.git] / libgfortran / generated / minval_i8.c

diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c
index 579e5f971813a043d3b338685cc18f1881887472..9d44514c4c618c8cdce8f30566f2f3afd3670786 100644 (file)
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -194,6 +194,9 @@ mminval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
   if (array->dim[0].stride == 0)
     array->dim[0].stride = 1;
 
+  if (mask->dim[0].stride == 0)
+    mask->dim[0].stride = 1;
+
   len = array->dim[dim].ubound + 1 - array->dim[dim].lbound;
   if (len <= 0)
     return;