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

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg015.hs

diff --git a/ghc/tests/codeGen/should_run/cg015.hs b/ghc/tests/codeGen/should_run/cg015.hs
deleted file mode 100644 (file)
index faa99b8..0000000
--- a/ghc/tests/codeGen/should_run/cg015.hs
+++ /dev/null
@@ -1,25 +0,0 @@
-module Main ( main ) where
-
-import PrelBase
-
-data CList = CNil | CCons Int# CList
-
-mk :: Int# -> CList
-mk n  = if (n ==# 0#)
-       then CNil
-       else CCons 1# (mk (n -# 1#))
-
-clen :: CList -> Int#
-clen CNil = 0#
-clen (CCons _ cl) = 1# +# (clen cl)
-
-main = case (clen list4) of
-               len4 ->
-                 case (len4 +# len4) of
-                   8# -> finish 65#    -- 'A'
-                   _  -> finish 66#    -- 'B'
-      where
-      list4    = mk 4#
-
-finish :: Int# -> IO ()
-finish n = _ccall_ putchar (C# (chr# n)) >> return ()