re PR libfortran/79956 (many new -Wmaybe-uninitialized warnings with bootstrap-O3)
2017-03-15 Thomas Koenig <tkoenig@gcc.gnu.org> 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
This commit is contained in:
Thomas Koenig
parent
142b99a888
commit
20305b5047
15 changed files with 144 additions and 0 deletions
|
|
@ -78,6 +78,10 @@ reshape_c10 (gfc_array_c10 * 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_c10 (gfc_array_c10 * 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++)
|
||||
|
|
|
|||
|
|
@ -78,6 +78,10 @@ reshape_c16 (gfc_array_c16 * 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_c16 (gfc_array_c16 * 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++)
|
||||
|
|
|
|||
|
|
@ -78,6 +78,10 @@ reshape_c4 (gfc_array_c4 * 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_c4 (gfc_array_c4 * 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++)
|
||||
|
|
|
|||
|
|
@ -78,6 +78,10 @@ reshape_c8 (gfc_array_c8 * 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_c8 (gfc_array_c8 * 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++)
|
||||
|
|
|
|||
|
|
@ -78,6 +78,10 @@ reshape_16 (gfc_array_i16 * 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_16 (gfc_array_i16 * 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++)
|
||||
|
|
|
|||
|
|
@ -78,6 +78,10 @@ reshape_4 (gfc_array_i4 * 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_4 (gfc_array_i4 * 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++)
|
||||
|
|
|
|||
|
|
@ -78,6 +78,10 @@ reshape_8 (gfc_array_i8 * 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_8 (gfc_array_i8 * 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++)
|
||||
|
|
|
|||
|
|
@ -78,6 +78,10 @@ reshape_r10 (gfc_array_r10 * 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_r10 (gfc_array_r10 * 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++)
|
||||
|
|
|
|||
|
|
@ -78,6 +78,10 @@ reshape_r16 (gfc_array_r16 * 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_r16 (gfc_array_r16 * 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++)
|
||||
|
|
|
|||
|
|
@ -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++)
|
||||
|
|
|
|||
|
|
@ -78,6 +78,10 @@ reshape_r8 (gfc_array_r8 * 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_r8 (gfc_array_r8 * 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++)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue