[project @ 1997-03-14 08:02:40 by simonpj]
[nofib.git] / GHC_ONLY / bugs / zhang_ccall / Main.hs
1 module Main where
2
3 import STBase
4
5 main = putStr (shows res "\n")
6 where
7 res = unsafePerformPrimIO (
8 ca `thenPrimIO` \r -> returnPrimIO r)
9 ca :: PrimIO Float
10 ca = _ccall_ nn