summaryrefslogtreecommitdiff
path: root/testsuite/tests/codeGen/should_run/5149.hs
blob: c0c88e301595619a9ffd2106c823a2e0a8a1e3a5 (plain)
1
2
3
4
5
6
7
8
{-# LANGUAGE MagicHash,GHCForeignImportPrim,UnliftedFFITypes #-}
module Main where

import GHC.Exts

foreign import prim "f5149" f :: Int# -> Int# -> Double# -> Int#

main = print (I# (f 1# 2# 1.0##))