http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51828
--- Comment #3 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-01-11
22:32:56 UTC ---
(In reply to comment #0)
> libgfortran/intrinsics/unpack_generic.c: In function 'unpack_internal':
The warnings are bogus - assuming that "dim > 0" - as:
if (ret->data == NULL)
dim = GFC_DESCRIPTOR_RANK (mask);
for (n = 0; n < dim; n++)
rstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(ret, n);
else
dim = GFC_DESCRIPTOR_RANK (ret);
for (n = 0; n < dim; n++)
rstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(ret, n);
rstride0 = rstride[0]; /* << may be used uninitialized in this function */
