X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2Fccall%2Fcc001.hs;fp=ghc%2Fcompiler%2Ftests%2Fccall%2Fcc001.hs;h=0000000000000000000000000000000000000000;hb=5bb05c2781a5b8b0803af9cbbfe1aee028eb593c;hp=8aeca950fcd0179ea2ad44b73defd6b6fe90213a;hpb=e3b67289ad773d37576e763704baaca6b83d74db;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/ccall/cc001.hs b/ghc/compiler/tests/ccall/cc001.hs
deleted file mode 100644
index 8aeca95..0000000
--- a/ghc/compiler/tests/ccall/cc001.hs
+++ /dev/null
@@ -1,25 +0,0 @@
---!!! cc001 -- ccall with standard boxed arguments and results
-
-module Test where
-
-import GlaExts
-
--- simple functions
-
-a :: PrimIO Int
-a = _ccall_ a
-
-b :: Int -> PrimIO Int
-b x = _ccall_ b x
-
-c :: Int -> Char -> Float -> Double -> PrimIO Float
-c x1 x2 x3 x4 = _ccall_ c x1 x2 x3 x4
-
--- simple monadic code
-
-d =	a		`thenPrimIO` \ x ->
-	b x		`thenPrimIO` \ y ->
-	c y 'f' 1.0 2.0
-
-
-