From 20305b5047e1c6ce55f47d6f4d6fa93970f752ec Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Wed, 15 Mar 2017 07:45:39 +0000 Subject: re PR libfortran/79956 (many new -Wmaybe-uninitialized warnings with bootstrap-O3) 2017-03-15 Thomas Koenig PR libfortran/79956 * libgfortran.h (GFC_ASSERT): New macro. * m4/reshape.m4 (reshape_'rtype_ccode`): Use GFC_ASSERT to specify that sdim > 0 and rdim > 0. * intrinsic/reshape_generic.c (reshape_internal): Likweise. * generated/reshape_c10.c: Regenerated. * generated/reshape_c16.c: Regenerated. * generated/reshape_c4.c: Regenerated. * generated/reshape_c8.c: Regenerated. * generated/reshape_i16.c: Regenerated. * generated/reshape_i4.c: Regenerated. * generated/reshape_i8.c: Regenerated. * generated/reshape_r10.c: Regenerated. * generated/reshape_r16.c: Regenerated. * generated/reshape_r4.c: Regenerated. * generated/reshape_r8.c: Regenerated. From-SVN: r246153 --- libgfortran/generated/reshape_r4.c | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'libgfortran/generated/reshape_r4.c') diff --git a/libgfortran/generated/reshape_r4.c b/libgfortran/generated/reshape_r4.c index b73a968..889813c 100644 --- a/libgfortran/generated/reshape_r4.c +++ b/libgfortran/generated/reshape_r4.c @@ -78,6 +78,10 @@ reshape_r4 (gfc_array_r4 * const restrict ret, index_type shape_data[GFC_MAX_DIMENSIONS]; rdim = GFC_DESCRIPTOR_EXTENT(shape,0); + /* rdim is always > 0; this lets the compiler optimize more and + avoids a potential warning. */ + GFC_ASSERT(sdim>0); + if (rdim != GFC_DESCRIPTOR_RANK(ret)) runtime_error("rank of return array incorrect in RESHAPE intrinsic"); @@ -232,6 +236,11 @@ reshape_r4 (gfc_array_r4 * const restrict ret, } sdim = GFC_DESCRIPTOR_RANK (source); + + /* sdim is always > 0; this lets the compiler optimize more and + avoids a warning. */ + GFC_ASSERT(sdim>0); + ssize = 1; sempty = 0; for (n = 0; n < sdim; n++) -- cgit v1.1