/* Initialize the return value. */
for (n = 0; n < rank; n++)
- dest[n * dstride] = 1;
+ dest[n * dstride] = 0;
{
GFC_INTEGER_8 maxval;
{
/* Implementation start. */
- if (*base > maxval)
+ if (*base > maxval || !dest[0])
{
maxval = *base;
for (n = 0; n < rank; n++)
/* Initialize the return value. */
for (n = 0; n < rank; n++)
- dest[n * dstride] = 1;
+ dest[n * dstride] = 0;
{
GFC_INTEGER_8 maxval;
{
/* Implementation start. */
- if (*mbase && *base > maxval)
+ if (*mbase && (*base > maxval || !dest[0]))
{
maxval = *base;
for (n = 0; n < rank; n++)