diff options
Diffstat (limited to 'libgfortran/generated/matmul_r4.c')
| -rw-r--r-- | libgfortran/generated/matmul_r4.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/generated/matmul_r4.c b/libgfortran/generated/matmul_r4.c index dedc5a34961..ca6a4a4360c 100644 --- a/libgfortran/generated/matmul_r4.c +++ b/libgfortran/generated/matmul_r4.c @@ -193,8 +193,8 @@ matmul_r4 (gfc_array_r4 * const restrict retarray, const GFC_REAL_4 * restrict abase_n; GFC_REAL_4 bbase_yn; - if (rystride == ycount) - memset (dest, 0, (sizeof (GFC_REAL_4) * size0((array_t *) retarray))); + if (rystride == xcount) + memset (dest, 0, (sizeof (GFC_REAL_4) * xcount * ycount)); else { for (y = 0; y < ycount; y++) |