diff options
Diffstat (limited to 'libgfortran/generated/matmul_r4.c')
-rw-r--r-- | libgfortran/generated/matmul_r4.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/libgfortran/generated/matmul_r4.c b/libgfortran/generated/matmul_r4.c index b6014d0..642dc94 100644 --- a/libgfortran/generated/matmul_r4.c +++ b/libgfortran/generated/matmul_r4.c @@ -178,7 +178,14 @@ matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b) GFC_REAL_4 *abase_n; GFC_REAL_4 bbase_yn; - memset (dest, 0, (sizeof (GFC_REAL_4) * size0((array_t *) retarray))); + if (rystride == ycount) + memset (dest, 0, (sizeof (GFC_REAL_4) * size0((array_t *) retarray))); + else + { + for (y = 0; y < ycount; y++) + for (x = 0; x < xcount; x++) + dest[x + y*rystride] = (GFC_REAL_4)0; + } for (y = 0; y < ycount; y++) { |