path: root/testsuite/tests/ffi/should_fail/ccfail001.hs

{-# LANGUAGE ForeignFunctionInterface, MagicHash #-}

-- Trac #1037 

module Foo where

import GHC.Prim

foreign import ccall foo :: Int -> State# RealWorld