2006-03-13 Paul Thomas <pault@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / libgfortran / generated / maxloc1_4_r8.c

diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c
index fc0f9f5..82d4a67 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -132,7 +132,7 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
 
   GFC_REAL_8 maxval;
   maxval = -GFC_REAL_8_HUGE;
-  result = 1;
+  result = 0;
         if (len <= 0)
          *dest = 0;
        else
@@ -140,7 +140,7 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
            for (n = 0; n < len; n++, src += delta)
              {
 
-  if (*src > maxval)
+  if (*src > maxval || !result)
     {
       maxval = *src;
       result = (GFC_INTEGER_4)n + 1;
@@ -299,7 +299,7 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
 
   GFC_REAL_8 maxval;
   maxval = -GFC_REAL_8_HUGE;
-  result = 1;
+  result = 0;
         if (len <= 0)
          *dest = 0;
        else
@@ -307,7 +307,7 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
            for (n = 0; n < len; n++, src += delta, msrc += mdelta)
              {
 
-  if (*msrc && *src > maxval)
+  if (*msrc && (*src > maxval || !result))
     {
       maxval = *src;
       result = (GFC_INTEGER_4)n + 1;