Fix wrong comparison that made IMIN identical to IMAX

as suggested in #1990

diff --git a/kernel/arm/imin.c b/kernel/arm/imin.c
index 598cba3..ffc6522 100644 (file)
--- a/kernel/arm/imin.c
+++ b/kernel/arm/imin.c
@@ -53,7 +53,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
 
        while(i < n)
        {
-               if( x[ix] > minf )
+               if( x[ix] < minf )
                {
                        min = i;
                        minf = x[ix];