diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-12-25 10:12:41 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-12-25 10:12:41 +0000 |
| commit | 54a838424ea995d251eb361f86794e5215fbe574 (patch) | |
| tree | c1fe36d9fd32f8ae0900595a250297afb4db485e /libgfortran/m4 | |
| parent | 9c1ebeefcbbde83cc791557c9047eb42e9aeed2a (diff) | |
| download | gcc-54a838424ea995d251eb361f86794e5215fbe574.zip gcc-54a838424ea995d251eb361f86794e5215fbe574.tar.gz gcc-54a838424ea995d251eb361f86794e5215fbe574.tar.bz2 | |
re PR fortran/34566 (Matmul of logical values)
2007-12-25 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34566
* m4/matmull.m4: Multiply xstride and ystride by correct kind.
* generated/matmul_l4.c: Regenerated.
* generated/matmul_l8.c: Regenerated.
* generated/matmul_l16.c: Regenerated.
2007-12-25 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34566
* gfortran.dg/matmul_6.f90: New test.
From-SVN: r131167
Diffstat (limited to 'libgfortran/m4')
| -rw-r--r-- | libgfortran/m4/matmull.m4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/m4/matmull.m4 b/libgfortran/m4/matmull.m4 index b488632..54afa8a 100644 --- a/libgfortran/m4/matmull.m4 +++ b/libgfortran/m4/matmull.m4 @@ -154,7 +154,7 @@ sinclude(`matmul_asm_'rtype_code`.m4')dnl { 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) @@ -169,7 +169,7 @@ sinclude(`matmul_asm_'rtype_code`.m4')dnl { 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; } |