[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / numeric / should_run / arith013.hs

diff --git a/ghc/tests/numeric/should_run/arith013.hs b/ghc/tests/numeric/should_run/arith013.hs
deleted file mode 100644 (file)
index 63784de..0000000
--- a/ghc/tests/numeric/should_run/arith013.hs
+++ /dev/null
@@ -1,13 +0,0 @@
--- Test gcdInt/gcdInteger
-
-import PrelBase        ( gcdInt )
-import PrelNum ( gcdInteger )
-
-main :: IO ()
-main = do
-   test gcdInt     [                       -42, 0, 105             ]
-   test gcdInteger [-12193263111263526900, -42, 0, 105, 1234567890 ]
-
-
-test :: Integral a => (a -> a -> a) -> [a] -> IO ()
-test f xs = mapM_ print [ (a, b, f a b) | a <- xs, b <- reverse xs, a /= 0  || b /= 0 ]