Fix tri-tri mul tests

Author: kshyatt

test/libraries/cublas/level3_gemm.jl

@@ -219,20 +219,20 @@ k = 13
             sB = rand(elty,m,m)
             sB = sB + transpose(sB)
 
-            for (TRa, ta, TRb, tb, TRc) in (
-                (UpperTriangular, identity,  LowerTriangular, identity,  Matrix),
-                (LowerTriangular, identity,  UpperTriangular, identity,  Matrix),
-                (UpperTriangular, identity,  UpperTriangular, transpose, Matrix),
-                (UpperTriangular, transpose, UpperTriangular, identity,  Matrix),
-                (LowerTriangular, identity,  LowerTriangular, transpose, Matrix),
-                (LowerTriangular, transpose, LowerTriangular, identity,  Matrix),
+            for (TRa, ta, TRb, tb, TRc, a_func, b_func) in (
+                (UpperTriangular, identity,  LowerTriangular, identity,  Matrix, triu, tril),
+                (LowerTriangular, identity,  UpperTriangular, identity,  Matrix, tril, triu),
+                (UpperTriangular, identity,  UpperTriangular, transpose, Matrix, triu, triu),
+                (UpperTriangular, transpose, UpperTriangular, identity,  Matrix, triu, triu),
+                (LowerTriangular, identity,  LowerTriangular, transpose, Matrix, tril, tril),
+                (LowerTriangular, transpose, LowerTriangular, identity,  Matrix, tril, tril),
                 )
 
                 A = copy(sA) |> TRa
                 B = copy(sB) |> TRb
                 C = copy(C0) |> TRc
-                dA = CuArray(parent(sA)) |> TRa
-                dB = CuArray(parent(sB)) |> TRb
+                dA = CuArray(a_func(parent(sA))) |> TRa
+                dB = CuArray(b_func(parent(sB))) |> TRb
                 dC = if TRc == Matrix
                     CuArray(C0) |> DenseCuMatrix
                 else