testsuite/tests/th/T13587.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE TemplateHaskell #-}

import T13587A

main :: IO ()
main = do
    let sin' = $$(importDoubleToDouble "sin")
        cos' = $$(importDoubleToDouble "cos")
    --
    print (sin' 0)
    print (cos' pi)