Only adjoin when input is complex

Author: zsoerenm

src/gemm.jl

@@ -35,7 +35,7 @@ for (gemm, elt) in gemm_datatype_mappings
                                beta::$(elt), C::Ptr{$elt})
             # Convert our compile-time transpose marker to a char for BLAS
             convtrans(V::Val{false}) = 'N'
-            convtrans(V::Val{true})  = 'C'
+            convtrans(V::Val{true})  = $elt <: Complex ? 'C' : 'T'
 
             if transA == Val(false)
                 lda = M