From d3f5ec99d5839206dfb2bba7df5a98d250a2c60e Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Tue, 6 Apr 2010 09:48:25 +0000
Subject: fixed option -f-dd

---
 lib/Numeric/LinearAlgebra/Algorithms.hs | 3 ++-
 lib/Numeric/LinearAlgebra/Tests.hs      | 9 +++++++--
 2 files changed, 9 insertions(+), 3 deletions(-)

(limited to 'lib/Numeric')

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)
-- 
cgit v1.2.3