ghc/tests/codeGen/should_run/cg035.hs

   1 module Main (main) where
   2
   3 --import PreludeGlaST
   4 import GlaExts
   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 = unsafePerformPrimIO (_ccall_ erf x)
  11
  12 main = putStr (shows (po 2.0) "\n")