Fix to #48911 (Align with zlarzb)

1. Fix a complex conjugate bug in the original solution for #48911, align with LAPACK zlarzb, https://netlib.org/lapack/explore-html/d5/ddd/zlarzb_8f_source.html
aravindh-krishnamoorthy · Apr 25, 2023 · 529987f · 529987f
1 parent 614940c
commit 529987f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/stdlib/LinearAlgebra/src/qr.jl b/stdlib/LinearAlgebra/src/qr.jl
@@ -603,7 +603,7 @@ function _wide_qr_ldiv!(A::QR{T}, B::AbstractMatrix{T}) where T
                 for k = 1:m
                     vBj = B[k,j]'
                     for i = m + 1:n
-                        vBj += B[i,j]'*R[k,i]
+                        vBj += B[i,j]'*R[k,i]'
                     end
                     vBj *= τ[k]
                     B[k,j] -= vBj'