ghc/tests/codeGen/should_run/cg035.hs

   1 {-# OPTIONS -optc-DNON_POSIX_SOURCE #-}
   2
   3 module Main (main) where
   4
   5 import IOExts ( unsafePerformIO )
   6
   7 po :: Double -> Double
   8 po rd = 0.5 + 0.5 * erf ((rd / 1.04) / sqrt 2)
   9   where
  10     erf :: Double -> Double
  11     erf x = unsafePerformIO (_ccall_ erf x)
  12
  13 main = putStr (shows (po 2.0) "\n")