path: root/testsuite/tests/rts/T15894/main.hs

module Main where

foreign import ccall "with_copysign" c_with_copysign :: Double -> Double

main = print $ c_with_copysign 8.5