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/generated/unpack_r4.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'libgfortran/generated/unpack_r4.c') diff --git a/libgfortran/generated/unpack_r4.c b/libgfortran/generated/unpack_r4.c index c900874..cc56596 100644 --- a/libgfortran/generated/unpack_r4.c +++ b/libgfortran/generated/unpack_r4.c @@ -104,6 +104,8 @@ unpack0_r4 (gfc_array_r4 *ret, const gfc_array_r4 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -249,6 +251,8 @@ unpack1_r4 (gfc_array_r4 *ret, const gfc_array_r4 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; -- cgit v1.1