diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-03-25 08:29:10 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-03-25 08:29:10 +0000 |
| commit | cc41ec4ebc020fdf032bb981b5990469649a8926 (patch) | |
| tree | d7c59d1795dabf1eb44622906115c31d59e85ae1 /libgfortran/intrinsics/reshape_generic.c | |
| parent | 3ece6cc239ce0f85c306e3a2800582e6d8499b8d (diff) | |
| download | gcc-cc41ec4ebc020fdf032bb981b5990469649a8926.tar.gz | |
re PR fortran/31196 ([4.1 only] wrong code generated with RESHAPE/TRANSPOSE)
2007-03-25 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/31196
* intrinsics/reshape_generic.c (reshape_internal): Increment
correct variable.
2007-03-25 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/31196
* gfortran.dg/reshape_transpose_1.f90: New test.
From-SVN: r123195
Diffstat (limited to 'libgfortran/intrinsics/reshape_generic.c')
| -rw-r--r-- | libgfortran/intrinsics/reshape_generic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/intrinsics/reshape_generic.c b/libgfortran/intrinsics/reshape_generic.c index c58fab01795..9a20c197201 100644 --- a/libgfortran/intrinsics/reshape_generic.c +++ b/libgfortran/intrinsics/reshape_generic.c @@ -266,7 +266,7 @@ reshape_internal (parray *ret, parray *source, shape_type *shape, else { scount[n]++; - sptr += sstride[n] * size; + src += sstride[n] * size; } } } |