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

[ghc-hetmet.git] / ghc / tests / programs / zhang_ccall / Main.hs

diff --git a/ghc/tests/programs/zhang_ccall/Main.hs b/ghc/tests/programs/zhang_ccall/Main.hs
deleted file mode 100644 (file)
index 2cfc081..0000000
--- a/ghc/tests/programs/zhang_ccall/Main.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-{-# OPTIONS -#include "ccall.h" #-}
--- The 'bug' here was the omission of prototypes for
--- a C function peddling floats.
-module Main where
-
-import IOExts
-
-main = putStr (shows res "\n")
-       where
-       res = unsafePerformIO ca
-       ca :: IO Float
-       ca = _ccall_ nn