diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2014-10-01 00:15:58 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2014-10-01 00:15:58 +0300 |
| commit | b95216f77888e79a9b3563be97fbfdc7c67fd9cb (patch) | |
| tree | 3037fbafdae9708857d967d711e1a05f8d1506ed /libgfortran/intrinsics | |
| parent | 6c023041071e6e67362469e9ba603577d6954b17 (diff) | |
| download | gcc-b95216f77888e79a9b3563be97fbfdc7c67fd9cb.zip gcc-b95216f77888e79a9b3563be97fbfdc7c67fd9cb.tar.gz gcc-b95216f77888e79a9b3563be97fbfdc7c67fd9cb.tar.bz2 | |
Fix -Wmaybe-uninitialized warnings.
2014-10-01 Janne Blomqvist <jb@gcc.gnu.org>
* intrinsics/pack_generic.c (pack_s_internal): Fix
-Wmaybe-uninitialized warning.
* m4/unpack.m4 (unpack0_'rtype_code`): Likewise.
(unpack1_'rtype_code`): Likewise.
* generated/unpack_*.m4: Regenerated.
From-SVN: r215742
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/pack_generic.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 3fbfa0a..831f396 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -463,6 +463,9 @@ pack_s_internal (gfc_array_char *ret, const gfc_array_char *array, index_type total; dim = GFC_DESCRIPTOR_RANK (array); + /* Initialize sstride[0] to avoid -Wmaybe-uninitialized + complaints. */ + sstride[0] = size; ssize = 1; for (n = 0; n < dim; n++) { |