Reorganisation of the source tree

[ghc-hetmet.git] / compiler / ilxGen / tests / foo.hs

diff --git a/compiler/ilxGen/tests/foo.hs b/compiler/ilxGen/tests/foo.hs
new file mode 100644 (file)
index 0000000..d66608b
--- /dev/null
+++ b/compiler/ilxGen/tests/foo.hs
@@ -0,0 +1,9 @@
+{-# OPTIONS -fglasgow-exts  #-}
+module Foo where
+import PrelGHC
+import PrelNum
+import PrelBase
+integer2Intx :: Integer -> Int
+integer2Intx (S# i)   = I# i
+integer2Intx (J# s d) = case (integer2Int# s d) of { n# -> I# n# }
+