From 529987fffa19e0646e4491bdcc5363cb65876cd7 Mon Sep 17 00:00:00 2001
From: Aravindh Krishnamoorthy <aravindh.krishnamoorthy@fau.de>
Date: Wed, 26 Apr 2023 01:19:20 +0200
Subject: [PATCH] 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
---
 stdlib/LinearAlgebra/src/qr.jl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stdlib/LinearAlgebra/src/qr.jl b/stdlib/LinearAlgebra/src/qr.jl
index 6adacb49389010..215589f09ec578 100644
--- 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'