@@ -64,13 +64,13 @@ function test_linalg(AT)
64
64
@testset " $T gemv y := $f (A) * x * a + y * b" for f in (identity, transpose, adjoint), T in supported_eltypes ()
65
65
@test compare (* , AT, f (rand (T, 4 , 4 )), rand (T, 4 ))
66
66
@test compare (mul!, AT, rand (T, 4 ), f (rand (T, 4 , 4 )), rand (T, 4 ))
67
- @test compare (mul!, AT, rand (T, 4 ), f (rand (T, 4 , 4 )), rand (T, 4 ), T (4 ), T (5 ))
67
+ @test compare (mul!, AT, rand (T, 4 ), f (rand (T, 4 , 4 )), rand (T, 4 ), Ref ( T (4 )), Ref ( T (5 ) ))
68
68
end
69
69
70
70
@testset " $T gemm C := $f (A) * $g (B) * a + C * b" for f in (identity, transpose, adjoint), g in (identity, transpose, adjoint), T in supported_eltypes ()
71
71
@test compare (* , AT, f (rand (T, 4 , 4 )), g (rand (T, 4 , 4 )))
72
72
@test compare (mul!, AT, rand (T, 4 , 4 ), f (rand (T, 4 , 4 )), g (rand (T, 4 , 4 )))
73
- @test compare (mul!, AT, rand (T, 4 , 4 ), f (rand (T, 4 , 4 )), g (rand (T, 4 , 4 )), T (4 ), T (5 ))
73
+ @test compare (mul!, AT, rand (T, 4 , 4 ), f (rand (T, 4 , 4 )), g (rand (T, 4 , 4 )), Ref ( T (4 )), Ref ( T (5 ) ))
74
74
end
75
75
76
76
@testset " lmul! and rmul!" for (a,b) in [((3 ,4 ),(4 ,3 )), ((3 ,), (1 ,3 )), ((1 ,3 ), (3 ))], T in supported_eltypes ()
0 commit comments