diff options
Diffstat (limited to 'libgfortran/generated/maxloc0_4_r4.c')
| -rw-r--r-- | libgfortran/generated/maxloc0_4_r4.c | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c index daa379c72d3..b69c01fabc0 100644 --- a/libgfortran/generated/maxloc0_4_r4.c +++ b/libgfortran/generated/maxloc0_4_r4.c @@ -76,16 +76,8 @@ maxloc0_4_r4 (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_r4 (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_r4 (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; |
