GFC_INTEGER_4 minval;
minval = GFC_INTEGER_4_HUGE;
- result = 1;
+ result = 0;
if (len <= 0)
*dest = 0;
else
for (n = 0; n < len; n++, src += delta)
{
- if (*src < minval)
+ if (*src < minval || !result)
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;
GFC_INTEGER_4 minval;
minval = GFC_INTEGER_4_HUGE;
- result = 1;
+ result = 0;
if (len <= 0)
*dest = 0;
else
for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
- if (*msrc && *src < minval)
+ if (*msrc && (*src < minval || !result))
{
minval = *src;
result = (GFC_INTEGER_16)n + 1;