fixed option -f-dd

2 files changed, 9 insertions, 3 deletions

diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs
index d0f533b..aa18d37 100644
--- a/lib/Numeric/LinearAlgebra/Algorithms.hs
+++ b/lib/Numeric/LinearAlgebra/Algorithms.hs
@@ -131,10 +131,11 @@ instance Field Double where
 instance Field (Complex Double) where
 #ifdef NOZGESDD
     svd' = svdC
+    thinSVD' = thinSVDC
 #else
     svd' = svdCd
-#endif
     thinSVD' = thinSVDCd
+#endif
     sv' = svC
     luPacked' = luC
     luSolve' (l_u,perm) = lusC l_u perm
diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs
index 4910b67..c9408a6 100644
--- a/lib/Numeric/LinearAlgebra/Tests.hs
+++ b/lib/Numeric/LinearAlgebra/Tests.hs
@@ -228,11 +228,9 @@ runTests n = do
     test (svdProp1a svdR)
     test (svdProp1a svdC)
     test (svdProp1a svdRd)
-    test (svdProp1a svdCd)
     test (svdProp1b svdR)
     test (svdProp1b svdC)
     test (svdProp1b svdRd)
-    test (svdProp1b svdCd)
     test (svdProp2 thinSVDR)
     test (svdProp2 thinSVDC)
     test (svdProp2 thinSVDRd)
@@ -247,6 +245,13 @@ runTests n = do
     test (svdProp6b)
     test (svdProp7  . rM)
     test (svdProp7  . cM)
+    putStrLn "------ svdCd"
+#ifdef NOZGESDD
+    putStrLn "Omitted"
+#else
+    test (svdProp1a svdCd)
+    test (svdProp1b svdCd)
+#endif
     putStrLn "------ eig"
     test (eigSHProp . rHer)
     test (eigSHProp . cHer)