Move chkuplo to lacpy!

Author: jishnub

src/generic.jl

@@ -2098,7 +2098,6 @@ end
 # Forward LAPACK-compatible strided matrices to lacpy
 function copytrito!(B::StridedMatrixStride1{T}, A::StridedMatrixStride1{T}, uplo::AbstractChar) where {T<:BlasFloat}
     require_one_based_indexing(A, B)
-    BLAS.chkuplo(uplo)
     B === A && return B
     A = Base.unalias(B, A)
     LAPACK.lacpy!(B, A, uplo)

src/lapack.jl

@@ -7176,6 +7176,7 @@ for (fn, elty) in ((:dlacpy_, :Float64),
         function lacpy!(B::AbstractMatrix{$elty}, A::AbstractMatrix{$elty}, uplo::AbstractChar)
             require_one_based_indexing(A, B)
             chkstride1(A, B)
+            chkuplo(uplo)
             m, n = size(A)
             m1, n1 = size(B)
             if uplo == 'U'