Force memory transfer

Author: kshyatt

src/implementations/svd.jl

@@ -229,13 +229,13 @@ end
 function svd_trunc!(A, USVᴴ::Tuple{TU, TS, TVᴴ}, alg::TruncatedAlgorithm; compute_error::Bool = true) where {TU, TS, TVᴴ}
     ϵ = similar(USVᴴ[2], compute_error)
     (U, S, Vᴴ, ϵ) = svd_trunc!(A, (USVᴴ..., ϵ), alg)
-    return compute_error ? (U, S, Vᴴ, ϵ[1]) : (U, S, Vᴴ, -one(eltype(ϵ)))
+    return compute_error ? (U, S, Vᴴ, collect(ϵ)[1]) : (U, S, Vᴴ, -one(eltype(ϵ)))
 end
 function svd_trunc!(A, USVᴴ::Nothing, alg::TruncatedAlgorithm; compute_error::Bool = true)
     Tr = real(eltype(A))
-    ϵ = compute_error ? zeros(Tr, 1) : zeros(Tr, 0)
+    ϵ = zeros(Tr, compute_error)
     U, S, Vᴴ, ϵ = svd_trunc!(A, (USVᴴ, ϵ), alg)
-    return compute_error ? (U, S, Vᴴ, ϵ[1]) : (U, S, Vᴴ, -one(Tr))
+    return compute_error ? (U, S, Vᴴ, collect(ϵ)[1]) : (U, S, Vᴴ, -one(Tr))
 end
 
 # Diagonal logic