[project @ 1997-07-31 01:46:24 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / ccall / cc001.hs

diff --git a/ghc/compiler/tests/ccall/cc001.hs b/ghc/compiler/tests/ccall/cc001.hs
deleted file mode 100644 (file)
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
-
-
-