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

[pf3gnuchains/gcc-fork.git] / libgfortran / m4 / minloc1.m4

diff --git a/libgfortran/m4/minloc1.m4 b/libgfortran/m4/minloc1.m4
index a224b73..0c116eb 100644 (file)
--- a/libgfortran/m4/minloc1.m4
+++ b/libgfortran/m4/minloc1.m4
@@ -43,8 +43,8 @@ include(ifunction.m4)dnl
 ARRAY_FUNCTION(0,
 `  atype_name minval;
   minval = atype_max;
-  result = 1;',
-`  if (*src < minval)
+  result = 0;',
+`  if (*src < minval || !result)
     {
       minval = *src;
       result = (rtype_name)n + 1;
@@ -53,8 +53,8 @@ ARRAY_FUNCTION(0,
 MASKED_ARRAY_FUNCTION(0,
 `  atype_name minval;
   minval = atype_max;
-  result = 1;',
-`  if (*msrc && *src < minval)
+  result = 0;',
+`  if (*msrc && (*src < minval || !result))
     {
       minval = *src;
       result = (rtype_name)n + 1;