ghc/tests/programs/zhang_ccall/Main.hs

   1 {-# OPTIONS -#include "ccall.h" #-}
   2 -- The 'bug' here was the omission of prototypes for
   3 -- a C function peddling floats.
   4 module Main where
   5
   6 import IOExts
   7
   8 main = putStr (shows res "\n")
   9         where
  10         res = unsafePerformIO ca
  11         ca :: IO Float
  12         ca = _ccall_ nn