diff options
Diffstat (limited to 'libgfortran/generated/maxloc0_4_i16.c')
| -rw-r--r-- | libgfortran/generated/maxloc0_4_i16.c | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/libgfortran/generated/maxloc0_4_i16.c b/libgfortran/generated/maxloc0_4_i16.c index 01d78701964..a8b3bab824e 100644 --- a/libgfortran/generated/maxloc0_4_i16.c +++ b/libgfortran/generated/maxloc0_4_i16.c @@ -76,16 +76,8 @@ maxloc0_4_i16 (gfc_array_i4 * const restrict retarray, if (retarray->dim[0].ubound + 1 - retarray->dim[0].lbound != rank) runtime_error ("dimension of return array incorrect"); - - if (retarray->dim[0].stride == 0) - retarray->dim[0].stride = 1; } - /* TODO: It should be a front end job to correctly set the strides. */ - - if (array->dim[0].stride == 0) - array->dim[0].stride = 1; - dstride = retarray->dim[0].stride; dest = retarray->data; for (n = 0; n < rank; n++) @@ -196,19 +188,8 @@ mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray, if (retarray->dim[0].ubound + 1 - retarray->dim[0].lbound != rank) runtime_error ("dimension of return array incorrect"); - - if (retarray->dim[0].stride == 0) - retarray->dim[0].stride = 1; } - /* TODO: It should be a front end job to correctly set the strides. */ - - 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++) @@ -335,9 +316,6 @@ smaxloc0_4_i16 (gfc_array_i4 * const restrict retarray, if (retarray->dim[0].ubound + 1 - retarray->dim[0].lbound != rank) runtime_error ("dimension of return array incorrect"); - - if (retarray->dim[0].stride == 0) - retarray->dim[0].stride = 1; } dstride = retarray->dim[0].stride; |