Implement -XStaticValues
[ghc.git] / testsuite / tests / driver / Shared001.hs
1 {-# LANGUAGE ForeignFunctionInterface #-}
2 module Shared001 where
3
4 -- Test for building DLLs with ghc -shared, see #2745
5
6 f :: Int -> Int
7 f x = x+1
8
9 foreign export ccall f :: Int -> Int