From 92f5e87c2ba9b5f83b8b465a43e43d41a2801265 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Thu, 9 Jun 2005 19:43:27 +0000 Subject: re PR fortran/21480 ([4.0 only] trivial reshape operation gives erroneous results) 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. From-SVN: r100805 --- libgfortran/generated/reshape_i4.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'libgfortran/generated/reshape_i4.c') diff --git a/libgfortran/generated/reshape_i4.c b/libgfortran/generated/reshape_i4.c index b90e56c..465ca24 100644 --- a/libgfortran/generated/reshape_i4.c +++ b/libgfortran/generated/reshape_i4.c @@ -174,9 +174,9 @@ reshape_4 (gfc_array_i4 * ret, gfc_array_i4 * source, shape_type * shape, if (rsize != 0 && ssize != 0 && psize != 0) { - rsize *= 4; - ssize *= 4; - psize *= 4; + rsize *= sizeof (GFC_INTEGER_4); + ssize *= sizeof (GFC_INTEGER_4); + psize *= sizeof (GFC_INTEGER_4); reshape_packed ((char *)ret->data, rsize, (char *)source->data, ssize, pad ? (char *)pad->data : NULL, psize); return; -- cgit v1.1