@@ -721,15 +721,18 @@ end
721721 @test BLAS. her! (' L' , real (elty (2 )), x, A) isa WrappedArray{elty,2 }
722722 @test A == WrappedArray (elty[5 2 + 2im ; 11 + 3im 20 ])
723723 # Level 3
724- A = WrappedArray (elty[1 + im 2 + 2im ; 3 + 3im 4 + 4im ])
724+ # Hermitian matrices require real diagonal elements
725+ A = WrappedArray (elty[1 2 + 2im ; 2 - 2im 4 ])
725726 B = WrappedArray (elty[1 + im 2 + 2im ; 3 + 3im 4 + 4im ])
726- C = WrappedArray (elty[1 + im 2 + 2im ; 3 + 3im 4 + 4im ])
727+ C = WrappedArray (elty[1 2 + 2im ; 2 - 2im 4 ])
727728 @test BLAS. hemm! (' L' , ' U' , elty (2 ), A, B, elty (1 ), C) isa WrappedArray{elty,2 }
728- @test C == WrappedArray ([3 + 27im 6 + 38im ; 35 + 27im 52 + 36im ])
729+ @test C == WrappedArray ([3 + 26im 6 + 38im ; 34 + 22im 52 + 32im ])
730+ C = WrappedArray (elty[1 2 + 2im ; 2 - 2im 4 ]) # reset C to Hermitian
729731 @test BLAS. herk! (' U' , ' N' , real (elty (2 )), A, real (elty (1 )), C) isa WrappedArray{elty,2 }
730- @test C == WrappedArray ([23 50 + 38im ; 35 + 27im 152 ])
732+ @test C == WrappedArray ([19 22 + 22im ; 2 - 2im 52 ])
733+ C = WrappedArray (elty[1 2 + 2im ; 2 - 2im 4 ]) # reset C to Hermitian
731734 @test BLAS. her2k! (' U' , ' N' , elty (2 ), A, B, real (elty (1 )), C) isa WrappedArray{elty,2 }
732- @test C == WrappedArray ([63 138 + 38im ; 35 + 27im 352 ])
735+ @test C == WrappedArray ([37 56 + 20im ; 2 - 2im 68 ])
733736 end
734737end
735738
0 commit comments