[ZARCH] Fix bug in iamax/iamin/imax/imin

2019-01-28 17:16:18 +02:00
parent b111829226
commit c8ef9fb220
12 changed files with 12 additions and 0 deletions
--- a/kernel/zarch/izamax.c
+++ b/kernel/zarch/izamax.c
@@ -204,6 +204,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
      }
      else
        {
+            max = 0;
            maxf = CABS1(x,0);
            ix += 2;
            i++;