diff options
Diffstat (limited to 'libgfortran/generated')
| -rw-r--r-- | libgfortran/generated/matmul_l16.c | 4 | ||||
| -rw-r--r-- | libgfortran/generated/matmul_l4.c | 4 | ||||
| -rw-r--r-- | libgfortran/generated/matmul_l8.c | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/libgfortran/generated/matmul_l16.c b/libgfortran/generated/matmul_l16.c index c3cabdb..b2b86ec 100644 --- a/libgfortran/generated/matmul_l16.c +++ b/libgfortran/generated/matmul_l16.c @@ -152,7 +152,7 @@ matmul_l16 (gfc_array_l16 * const restrict retarray, { astride = a->dim[1].stride * a_kind; count = a->dim[1].ubound + 1 - a->dim[1].lbound; - xstride = a->dim[0].stride; + xstride = a->dim[0].stride * a_kind; xcount = a->dim[0].ubound + 1 - a->dim[0].lbound; } if (GFC_DESCRIPTOR_RANK (b) == 1) @@ -167,7 +167,7 @@ matmul_l16 (gfc_array_l16 * const restrict retarray, { bstride = b->dim[0].stride * b_kind; assert(count == b->dim[0].ubound + 1 - b->dim[0].lbound); - ystride = b->dim[1].stride; + ystride = b->dim[1].stride * b_kind; ycount = b->dim[1].ubound + 1 - b->dim[1].lbound; } diff --git a/libgfortran/generated/matmul_l4.c b/libgfortran/generated/matmul_l4.c index 531603b..9a6cb1d 100644 --- a/libgfortran/generated/matmul_l4.c +++ b/libgfortran/generated/matmul_l4.c @@ -152,7 +152,7 @@ matmul_l4 (gfc_array_l4 * const restrict retarray, { astride = a->dim[1].stride * a_kind; count = a->dim[1].ubound + 1 - a->dim[1].lbound; - xstride = a->dim[0].stride; + xstride = a->dim[0].stride * a_kind; xcount = a->dim[0].ubound + 1 - a->dim[0].lbound; } if (GFC_DESCRIPTOR_RANK (b) == 1) @@ -167,7 +167,7 @@ matmul_l4 (gfc_array_l4 * const restrict retarray, { bstride = b->dim[0].stride * b_kind; assert(count == b->dim[0].ubound + 1 - b->dim[0].lbound); - ystride = b->dim[1].stride; + ystride = b->dim[1].stride * b_kind; ycount = b->dim[1].ubound + 1 - b->dim[1].lbound; } diff --git a/libgfortran/generated/matmul_l8.c b/libgfortran/generated/matmul_l8.c index 0b9b0be..7d4e35e 100644 --- a/libgfortran/generated/matmul_l8.c +++ b/libgfortran/generated/matmul_l8.c @@ -152,7 +152,7 @@ matmul_l8 (gfc_array_l8 * const restrict retarray, { astride = a->dim[1].stride * a_kind; count = a->dim[1].ubound + 1 - a->dim[1].lbound; - xstride = a->dim[0].stride; + xstride = a->dim[0].stride * a_kind; xcount = a->dim[0].ubound + 1 - a->dim[0].lbound; } if (GFC_DESCRIPTOR_RANK (b) == 1) @@ -167,7 +167,7 @@ matmul_l8 (gfc_array_l8 * const restrict retarray, { bstride = b->dim[0].stride * b_kind; assert(count == b->dim[0].ubound + 1 - b->dim[0].lbound); - ystride = b->dim[1].stride; + ystride = b->dim[1].stride * b_kind; ycount = b->dim[1].ubound + 1 - b->dim[1].lbound; } |