diff options
| author | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-04-18 08:47:28 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-04-18 08:47:28 +0000 |
| commit | c6e75626c93227ea1c909cf6908e5c6bdb792cec (patch) | |
| tree | 8dc796e48fd1a13532a20e8ae40510e9eeff313c /libgfortran/intrinsics/cshift0.c | |
| parent | 8cf81ddffd26ef1262e2d93f7232d72b92cd72be (diff) | |
| download | gcc-c6e75626c93227ea1c909cf6908e5c6bdb792cec.zip gcc-c6e75626c93227ea1c909cf6908e5c6bdb792cec.tar.gz gcc-c6e75626c93227ea1c909cf6908e5c6bdb792cec.tar.bz2 | |
re PR libfortran/31286 (cshift uses uninitialized variables)
PR libfortran/31286
PR libfortran/31296
* intrinsics/cshift0.c (cshift0): Initialize sstride[0] and rstride[0].
* intrinsics/unpack_generic.c (unpack0, unpack0_char): Zero the
array structures we pass to unpack_internal.
From-SVN: r123944
Diffstat (limited to 'libgfortran/intrinsics/cshift0.c')
| -rw-r--r-- | libgfortran/intrinsics/cshift0.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index f2c2219..2ecf30e 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -103,6 +103,8 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array, runtime_error ("Argument 'DIM' is out of range in call to 'CSHIFT'"); which = which - 1; + sstride[0] = 0; + rstride[0] = 0; extent[0] = 1; count[0] = 0; |