From b95216f77888e79a9b3563be97fbfdc7c67fd9cb Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Wed, 1 Oct 2014 00:15:58 +0300 Subject: Fix -Wmaybe-uninitialized warnings. 2014-10-01 Janne Blomqvist * 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 --- libgfortran/intrinsics/pack_generic.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'libgfortran/intrinsics') 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++) { -- cgit v1.1