+2012-10-28 Tobias Burnus <burnus@net-b.de>
+
+ * m4/bessel.m4: Remove useless statement.
+ * m4/ifunction.m4: Remove unreachable code.
+ * generated/bessel_r10.c: Regenerated.
+ * generated/bessel_r16.c: Regenerated.
+ * generated/bessel_r4.c: Regenerated.
+ * generated/bessel_r8.c: Regenerated.
+ * generated/iall_i1.c: Regenerated.
+ * generated/iall_i16.c: Regenerated.
+ * generated/iall_i2.c: Regenerated.
+ * generated/iall_i4.c: Regenerated.
+ * generated/iall_i8.c: Regenerated.
+ * generated/iany_i1.c: Regenerated.
+ * generated/iany_i16.c: Regenerated.
+ * generated/iany_i2.c: Regenerated.
+ * generated/iany_i4.c: Regenerated.
+ * generated/iany_i8.c: Regenerated.
+ * generated/iparity_i1.c: Regenerated.
+ * generated/iparity_i16.c: Regenerated.
+ * generated/iparity_i2.c: Regenerated.
+ * generated/iparity_i4.c: Regenerated.
+ * generated/iparity_i8.c: Regenerated.
+ * generated/maxloc1_16_i1.c: Regenerated.
+ * generated/maxloc1_16_i16.c: Regenerated.
+ * generated/maxloc1_16_i2.c: Regenerated.
+ * generated/maxloc1_16_i4.c: Regenerated.
+ * generated/maxloc1_16_i8.c: Regenerated.
+ * generated/maxloc1_16_r10.c: Regenerated.
+ * generated/maxloc1_16_r16.c: Regenerated.
+ * generated/maxloc1_16_r4.c: Regenerated.
+ * generated/maxloc1_16_r8.c: Regenerated.
+ * generated/maxloc1_4_i1.c: Regenerated.
+ * generated/maxloc1_4_i16.c: Regenerated.
+ * generated/maxloc1_4_i2.c: Regenerated.
+ * generated/maxloc1_4_i4.c: Regenerated.
+ * generated/maxloc1_4_i8.c: Regenerated.
+ * generated/maxloc1_4_r10.c: Regenerated.
+ * generated/maxloc1_4_r16.c: Regenerated.
+ * generated/maxloc1_4_r4.c: Regenerated.
+ * generated/maxloc1_4_r8.c: Regenerated.
+ * generated/maxloc1_8_i1.c: Regenerated.
+ * generated/maxloc1_8_i16.c: Regenerated.
+ * generated/maxloc1_8_i2.c: Regenerated.
+ * generated/maxloc1_8_i4.c: Regenerated.
+ * generated/maxloc1_8_i8.c: Regenerated.
+ * generated/maxloc1_8_r10.c: Regenerated.
+ * generated/maxloc1_8_r16.c: Regenerated.
+ * generated/maxloc1_8_r4.c: Regenerated.
+ * generated/maxloc1_8_r8.c: Regenerated.
+ * generated/maxval_i1.c: Regenerated.
+ * generated/maxval_i16.c: Regenerated.
+ * generated/maxval_i2.c: Regenerated.
+ * generated/maxval_i4.c: Regenerated.
+ * generated/maxval_i8.c: Regenerated.
+ * generated/maxval_r10.c: Regenerated.
+ * generated/maxval_r16.c: Regenerated.
+ * generated/maxval_r4.c: Regenerated.
+ * generated/maxval_r8.c: Regenerated.
+ * generated/minloc1_16_i1.c: Regenerated.
+ * generated/minloc1_16_i16.c: Regenerated.
+ * generated/minloc1_16_i2.c: Regenerated.
+ * generated/minloc1_16_i4.c: Regenerated.
+ * generated/minloc1_16_i8.c: Regenerated.
+ * generated/minloc1_16_r10.c: Regenerated.
+ * generated/minloc1_16_r16.c: Regenerated.
+ * generated/minloc1_16_r4.c: Regenerated.
+ * generated/minloc1_16_r8.c: Regenerated.
+ * generated/minloc1_4_i1.c: Regenerated.
+ * generated/minloc1_4_i16.c: Regenerated.
+ * generated/minloc1_4_i2.c: Regenerated.
+ * generated/minloc1_4_i4.c: Regenerated.
+ * generated/minloc1_4_i8.c: Regenerated.
+ * generated/minloc1_4_r10.c: Regenerated.
+ * generated/minloc1_4_r16.c: Regenerated.
+ * generated/minloc1_4_r4.c: Regenerated.
+ * generated/minloc1_4_r8.c: Regenerated.
+ * generated/minloc1_8_i1.c: Regenerated.
+ * generated/minloc1_8_i16.c: Regenerated.
+ * generated/minloc1_8_i2.c: Regenerated.
+ * generated/minloc1_8_i4.c: Regenerated.
+ * generated/minloc1_8_i8.c: Regenerated.
+ * generated/minloc1_8_r10.c: Regenerated.
+ * generated/minloc1_8_r16.c: Regenerated.
+ * generated/minloc1_8_r4.c: Regenerated.
+ * generated/minloc1_8_r8.c: Regenerated.
+ * generated/minval_i1.c: Regenerated.
+ * generated/minval_i16.c: Regenerated.
+ * generated/minval_i2.c: Regenerated.
+ * generated/minval_i4.c: Regenerated.
+ * generated/minval_i8.c: Regenerated.
+ * generated/minval_r10.c: Regenerated.
+ * generated/minval_r16.c: Regenerated.
+ * generated/minval_r4.c: Regenerated.
+ * generated/minval_r8.c: Regenerated.
+ * generated/product_c10.c: Regenerated.
+ * generated/product_c16.c: Regenerated.
+ * generated/product_c4.c: Regenerated.
+ * generated/product_c8.c: Regenerated.
+ * generated/product_i1.c: Regenerated.
+ * generated/product_i16.c: Regenerated.
+ * generated/product_i2.c: Regenerated.
+ * generated/product_i4.c: Regenerated.
+ * generated/product_i8.c: Regenerated.
+ * generated/product_r10.c: Regenerated.
+ * generated/product_r16.c: Regenerated.
+ * generated/product_r4.c: Regenerated.
+ * generated/product_r8.c: Regenerated.
+ * generated/sum_c10.c: Regenerated.
+ * generated/sum_c16.c: Regenerated.
+ * generated/sum_c4.c: Regenerated.
+ * generated/sum_c8.c: Regenerated.
+ * generated/sum_i1.c: Regenerated.
+ * generated/sum_i16.c: Regenerated.
+ * generated/sum_i2.c: Regenerated.
+ * generated/sum_i4.c: Regenerated.
+ * generated/sum_i8.c: Regenerated.
+ * generated/sum_r10.c: Regenerated.
+ * generated/sum_r16.c: Regenerated.
+ * generated/sum_r4.c: Regenerated.
+ * generated/sum_r8.c: Regenerated.
+
2012-10-10 Tobias Burnus <burnus@net-b.de>
PR fortran/54878
return;
}
- ret->base_addr = ret->base_addr;
last1 = MATHFUNC(yn) (n1, x);
ret->base_addr[0] = last1;
return;
}
- ret->base_addr = ret->base_addr;
last1 = MATHFUNC(yn) (n1, x);
ret->base_addr[0] = last1;
return;
}
- ret->base_addr = ret->base_addr;
last1 = MATHFUNC(yn) (n1, x);
ret->base_addr[0] = last1;
return;
}
- ret->base_addr = ret->base_addr;
last1 = MATHFUNC(yn) (n1, x);
ret->base_addr[0] = last1;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result &= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result &= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result &= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result &= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result &= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result |= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result |= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result |= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result |= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result |= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result ^= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result ^= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result ^= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result ^= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result ^= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_INTEGER_1_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = (-GFC_INTEGER_1_HUGE-1);
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_INTEGER_1_INFINITY) || defined (GFC_INTEGER_1_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src > result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_INTEGER_16_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = (-GFC_INTEGER_16_HUGE-1);
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_INTEGER_16_INFINITY) || defined (GFC_INTEGER_16_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src > result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_INTEGER_2_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = (-GFC_INTEGER_2_HUGE-1);
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_INTEGER_2_INFINITY) || defined (GFC_INTEGER_2_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src > result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_INTEGER_4_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = (-GFC_INTEGER_4_HUGE-1);
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_INTEGER_4_INFINITY) || defined (GFC_INTEGER_4_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src > result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_INTEGER_8_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = (-GFC_INTEGER_8_HUGE-1);
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_INTEGER_8_INFINITY) || defined (GFC_INTEGER_8_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src > result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_REAL_10_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = -GFC_REAL_10_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_REAL_10_INFINITY) || defined (GFC_REAL_10_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src > result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_REAL_16_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = -GFC_REAL_16_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_REAL_16_INFINITY) || defined (GFC_REAL_16_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src > result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_REAL_4_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = -GFC_REAL_4_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_REAL_4_INFINITY) || defined (GFC_REAL_4_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src > result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_REAL_8_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = -GFC_REAL_8_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_REAL_8_INFINITY) || defined (GFC_REAL_8_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src > result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
{
minval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_INTEGER_1_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = GFC_INTEGER_1_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_INTEGER_1_INFINITY) || defined (GFC_INTEGER_1_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src < result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_INTEGER_16_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = GFC_INTEGER_16_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_INTEGER_16_INFINITY) || defined (GFC_INTEGER_16_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src < result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_INTEGER_2_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = GFC_INTEGER_2_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_INTEGER_2_INFINITY) || defined (GFC_INTEGER_2_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src < result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_INTEGER_4_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = GFC_INTEGER_4_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_INTEGER_4_INFINITY) || defined (GFC_INTEGER_4_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src < result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_INTEGER_8_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = GFC_INTEGER_8_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_INTEGER_8_INFINITY) || defined (GFC_INTEGER_8_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src < result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_REAL_10_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = GFC_REAL_10_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_REAL_10_INFINITY) || defined (GFC_REAL_10_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src < result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_REAL_16_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = GFC_REAL_16_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_REAL_16_INFINITY) || defined (GFC_REAL_16_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src < result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_REAL_4_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = GFC_REAL_4_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_REAL_4_INFINITY) || defined (GFC_REAL_4_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src < result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
#if defined (GFC_REAL_8_QUIET_NAN)
int non_empty_p = 0;
#endif
- if (len <= 0)
- *dest = GFC_REAL_8_HUGE;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
#if defined (GFC_REAL_8_INFINITY) || defined (GFC_REAL_8_QUIET_NAN)
if (*msrc)
#endif
if (*msrc && *src < result)
result = *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
{
result = 0;
- if (len <= 0)
- *dest = 0;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result += *src;
- }
- *dest = result;
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
return;
}
- ret->base_addr = ret->base_addr;
last1 = MATHFUNC(yn) (n1, x);
ret->base_addr[0] = last1;
{
')dnl
define(START_MASKED_ARRAY_BLOCK,
-` if (len <= 0)
- *dest = '$1`;
- else
+` for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
')dnl
define(FINISH_MASKED_ARRAY_FUNCTION,
-` }
- *dest = result;
- }
+` }
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
define(MASKED_ARRAY_FUNCTION,
`START_MASKED_ARRAY_FUNCTION
$2
-START_MASKED_ARRAY_BLOCK($1)
+START_MASKED_ARRAY_BLOCK
$3
FINISH_MASKED_ARRAY_FUNCTION')dnl
projects / gcc.git / commitdiff