OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
PR libfortran/26985
[pf3gnuchains/gcc-fork.git]
/
libgfortran
/
generated
/
matmul_i16.c
diff --git
a/libgfortran/generated/matmul_i16.c
b/libgfortran/generated/matmul_i16.c
index
eacc47f
..
50d87bb
100644
(file)
--- a/
libgfortran/generated/matmul_i16.c
+++ b/
libgfortran/generated/matmul_i16.c
@@
-193,8
+193,8
@@
matmul_i16 (gfc_array_i16 * const restrict retarray,
const GFC_INTEGER_16 * restrict abase_n;
GFC_INTEGER_16 bbase_yn;
const GFC_INTEGER_16 * restrict abase_n;
GFC_INTEGER_16 bbase_yn;
- if (rystride ==
y
count)
- memset (dest, 0, (sizeof (GFC_INTEGER_16) *
size0((array_t *) retarray)
));
+ if (rystride ==
x
count)
+ memset (dest, 0, (sizeof (GFC_INTEGER_16) *
xcount * ycount
));
else
{
for (y = 0; y < ycount; y++)
else
{
for (y = 0; y < ycount; y++)