From 1633cb7cb6b292ca0cfaa0311b2784927efe7990 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Fri, 5 May 2006 13:08:23 +0200 Subject: re PR libfortran/26985 (incorrect matmul result) PR libfortran/26985 * m4/matmul.m4: Correct the condition for the memset call, and remove the unneeded call to size0. * generated/matmul_r4.c: Regenerate. * generated/matmul_r8.c: Regenerate. * generated/matmul_r10.c: Regenerate. * generated/matmul_r16.c: Regenerate. * generated/matmul_c4.c: Regenerate. * generated/matmul_c8.c: Regenerate. * generated/matmul_c10.c: Regenerate. * generated/matmul_c16.c: Regenerate. * generated/matmul_i4.c: Regenerate. * generated/matmul_i8.c: Regenerate. * generated/matmul_i16.c: Regenerate. * gfortran.dg/matmul_2.f90: New test. From-SVN: r113552 --- libgfortran/generated/matmul_r16.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libgfortran/generated/matmul_r16.c') diff --git a/libgfortran/generated/matmul_r16.c b/libgfortran/generated/matmul_r16.c index c095cbd..099c6bf 100644 --- a/libgfortran/generated/matmul_r16.c +++ b/libgfortran/generated/matmul_r16.c @@ -193,8 +193,8 @@ matmul_r16 (gfc_array_r16 * const restrict retarray, const GFC_REAL_16 * restrict abase_n; GFC_REAL_16 bbase_yn; - if (rystride == ycount) - memset (dest, 0, (sizeof (GFC_REAL_16) * size0((array_t *) retarray))); + if (rystride == xcount) + memset (dest, 0, (sizeof (GFC_REAL_16) * xcount * ycount)); else { for (y = 0; y < ycount; y++) -- cgit v1.1