487b8b4912aa2f571e81f471dd753bb7cff7eb0f
[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg035.hs
1
2 module Main (main) where
3
4 import IOExts ( unsafePerformIO )
5
6 po :: Double -> Double
7 po rd = 0.5 + 0.5 * erf ((rd / 1.04) / sqrt 2)
8   where
9     erf :: Double -> Double
10     erf x = unsafePerformIO (_ccall_ erf x)
11
12 main = putStr (shows (po 2.0) "\n")