diff --git a/kernel/riscv64/iamin.c b/kernel/riscv64/iamin.c index 155292bd5..73369f6c1 100644 --- a/kernel/riscv64/iamin.c +++ b/kernel/riscv64/iamin.c @@ -56,13 +56,15 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) BLASLONG min=0; if (n <= 0 || inc_x <= 0) return(min); - - minf=ABS(x[0]); + if (n==1) return(1); + if (x[0]!=x[0]) return(1); + minf=ABS(x[0]); ix += inc_x; i++; while(i < n) { + if (x[ix]!=x[ix]) return(i+1); if( ABS(x[ix]) < ABS(minf) ) { min = i;