Fix undefined err

Author: kshyatt

src/implementations/svd.jl

@@ -227,15 +227,15 @@ function svd_trunc!(A, USVᴴϵ::Tuple{Nothing, Tϵ}, alg::TruncatedAlgorithm) w
 end
 
 function svd_trunc!(A, USVᴴ::Tuple{TU, TS, TVᴴ}, alg::TruncatedAlgorithm; compute_error::Bool = true) where {TU, TS, TVᴴ}
-    ϵ = similar(S, compute_error)
+    ϵ = 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(ϵ)))
 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)
     U, S, Vᴴ, ϵ = svd_trunc!(A, (USVᴴ, ϵ), alg)
-    return compute_error ? (U, S, Vᴴ, ϵ[1]::Tr) : (U, S, Vᴴ, -one(Tr))
+    return compute_error ? (U, S, Vᴴ, ϵ[1]) : (U, S, Vᴴ, -one(Tr))
 end
 
 # Diagonal logic