[ZARCH] fix a bug in max/min functions

2019-01-15 21:04:22 +02:00
parent 1a7925b3a3
commit b815a04c87
20 changed files with 20 additions and 20 deletions
@@ -226,7 +226,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
        j++;

        BLASLONG n1 = (n - 1) & -4;
-        while (j < n1) {
+        while ((j - 1) < n1) {

            if (ABS(x[i]) > maxf) {
                max = j;