Commit 127d06bc authored by simonpj's avatar simonpj
Browse files

Test for Trac #1037

parent 08079dc4
......@@ -7,4 +7,4 @@ setTestOpts(f)
# test('cc002', normal, compile_fail, [''])
test('cc005', only_compiler_types(['ghc']), compile_fail, [''])
test('ccfail001', only_compiler_types(['ghc']), compile_fail, [''])
{-# OPTIONS -fffi -fglasgow-exts #-}
-- Trac #1037
module Foo where
import GHC.Prim
foreign import ccall foo :: Int -> State# RealWorld
Unacceptable result type in foreign declaration: State# RealWorld
When checking declaration:
foreign import ccall safe "static &foo" foo
:: Int -> State# RealWorld
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment