diff options
| author | Thomas Koenig <Thomas.Koenig@online.de> | 2005-06-09 19:43:27 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2005-06-09 19:43:27 +0000 |
| commit | 92f5e87c2ba9b5f83b8b465a43e43d41a2801265 (patch) | |
| tree | 0f31fdfb3c3dd3af7b89a407ebda9e2ea89c4f54 /libgfortran/m4 | |
| parent | 8562f05c95361a5a232e19ca6871c9cf6dcc4749 (diff) | |
| download | gcc-92f5e87c2ba9b5f83b8b465a43e43d41a2801265.zip gcc-92f5e87c2ba9b5f83b8b465a43e43d41a2801265.tar.gz gcc-92f5e87c2ba9b5f83b8b465a43e43d41a2801265.tar.bz2 | |
re PR fortran/21480 ([4.0 only] trivial reshape operation gives erroneous results)
2005-06-09 Thomas Koenig <Thomas.Koenig@online.de>
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 <Thomas.Koenig@online.de>
PR libfortran/21480
* gfortran.dg/reshape-complex.f90: Add a test for a packed
complex array.
From-SVN: r100805
Diffstat (limited to 'libgfortran/m4')
| -rw-r--r-- | libgfortran/m4/reshape.m4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4 index 6b411f0..ae26a88 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; |