test scale! and A_mul_Bt! with non square

Author: SimonDanisch

src/testsuite/blas.jl

@@ -9,12 +9,13 @@ function run_blas(Typ)
             against_base(*, T, (5, 5), (5, 5))
             against_base(*, T, (5, 5), (5))
             against_base(A_mul_Bt, T, (5, 5), (5, 5))
+            against_base(A_mul_Bt!, T, (10, 32), (10, 60), (32, 60))
             against_base(At_mul_B, T, (5, 5), (5, 5))
         end
-        # for T in (Complex64, Float32)
-        #     @testset "scale!" begin
-        #         against_base(scale!, Typ{T}, (13, 23), 77f0)
-        #     end
-        # end
+        for T in (Complex64, Float32)
+            @testset "scale! $T" begin
+                against_base(scale!, Typ{T}, (13, 23), 77f0)
+            end
+        end
     end
 end