diff --git a/kernel/mips/nrm2.c b/kernel/mips/nrm2.c index 8cc189fe3..0b6323f29 100644 --- a/kernel/mips/nrm2.c +++ b/kernel/mips/nrm2.c @@ -61,7 +61,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) if ( n == 1 ) return( ABS(x[0]) ); n *= inc_x; - while(i < n) + while(abs(i) < abs(n)) { if ( x[i] != 0.0 )