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

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

diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c
index a483c432234ac8a2f0a482950774c0ac1f5d515a..94e2ec554bfb5389ae3e3ec69f47db195957b1a3 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i4.c
+++ b/libgfortran/generated/maxloc0_4_i4.c
@@ -195,6 +195,9 @@ mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array,
   if (array->dim[0].stride == 0)
     array->dim[0].stride = 1;
 
+  if (mask->dim[0].stride == 0)
+    mask->dim[0].stride = 1;
+
   dstride = retarray->dim[0].stride;
   dest = retarray->data;
   for (n = 0; n < rank; n++)