[project @ 1998-04-30 20:38:38 by sof]

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

diff --git a/ghc/tests/numeric/should_run/arith007.hs b/ghc/tests/numeric/should_run/arith007.hs
index dc99edf..3e8098e 100644 (file)
--- a/ghc/tests/numeric/should_run/arith007.hs
+++ b/ghc/tests/numeric/should_run/arith007.hs
@@ -1,8 +1,11 @@
 --!!! test simple Integer things
 --
-main
-  = putStr (shows integer_list "\n")
-  where
+
+f x y z = x y z
+
+main = do
+  putStr (shows integer_list "\n")
+ where
     int_list :: [Int]
     integer_list :: [Integer]
 
@@ -17,3 +20,4 @@ main
         -2222222222222222222222222222222222222,
         -3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333
        ])
+