[commit: testsuite] master: Fix arith013 (33b7bee)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/33b7bee5df49a0bb119b0b1eeade3eafd615ca11

>---------------------------------------------------------------

commit 33b7bee5df49a0bb119b0b1eeade3eafd615ca11
Author: Ian Lynagh <igloo at earth.li>
Date:   Fri Jul 20 14:04:48 2012 +0100

    Fix arith013

>---------------------------------------------------------------

 tests/numeric/should_run/arith013.hs |    9 +++------
 1 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/tests/numeric/should_run/arith013.hs b/tests/numeric/should_run/arith013.hs
index 40e95c3..68e5d3a 100644
--- a/tests/numeric/should_run/arith013.hs
+++ b/tests/numeric/should_run/arith013.hs
@@ -1,12 +1,9 @@
--- Test gcdInt/gcdInteger
-
-import GHC.Real ( gcdInt )
-import GHC.Integer.GMP.Internals ( gcdInteger )
+-- Test gcd
 
 main :: IO ()
 main = do
-   test gcdInt     [                       -42, 0, 105             ]
-   test gcdInteger [-12193263111263526900, -42, 0, 105, 1234567890 ]
+   test gcd ([                       -42, 0, 105             ] :: [Int])
+   test gcd ([-12193263111263526900, -42, 0, 105, 1234567890 ] :: [Integer])
 
 
 test :: (Show a, Integral a) => (a -> a -> a) -> [a] -> IO ()