From d8877715f819d2506a540114bcf3194711ae54f9 Mon Sep 17 00:00:00 2001 From: tkoenig Date: Thu, 9 Jun 2005 19:43:27 +0000 Subject: 2005-06-09 Thomas Koenig PR libfortran/21480 * m4/reshape.m4: Use sizeof (rtype_name) for sizes to be passed to reshape_packed. * generated/reshape_c4.c: Regenerated. * generated/reshape_c8.c: Regenerated. * generated/reshape_i4.c: Regenerated. * generated/reshape_i8.c: Regenerated. 2005-06-09 Thomas Koenig PR libfortran/21480 * gfortran.dg/reshape-complex.f90: Add a test for a packed complex array. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100805 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/m4/reshape.m4 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'libgfortran/m4/reshape.m4') diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4 index 6b411f001ad..ae26a88aef0 100644 --- a/libgfortran/m4/reshape.m4 +++ b/libgfortran/m4/reshape.m4 @@ -176,9 +176,9 @@ reshape_`'rtype_ccode (rtype * ret, rtype * source, shape_type * shape, if (rsize != 0 && ssize != 0 && psize != 0) { - rsize *= rtype_kind; - ssize *= rtype_kind; - psize *= rtype_kind; + rsize *= sizeof (rtype_name); + ssize *= sizeof (rtype_name); + psize *= sizeof (rtype_name); reshape_packed ((char *)ret->data, rsize, (char *)source->data, ssize, pad ? (char *)pad->data : NULL, psize); return; -- cgit v1.2.1