We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 8843510 commit 22a402bCopy full SHA for 22a402b
1 file changed
lapack/getf2/getf2_k.c
@@ -95,7 +95,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
95
GEMV_N(m - j, j, 0, dm1, a + j, lda, b, 1, b + j, 1, sb);
96
97
jp = j + IAMAX_K(m - j, b + j, 1);
98
- if (jp>m) jp = m; //avoid out of boundary
+ if (jp>m) jp = m; //avoid out of boundary when the iamax kernel does not cope with NaN in input, see gh issue 723
99
ipiv[j + offset] = jp + offset;
100
jp--;
101
temp1 = *(b + jp);
0 commit comments