path: root/testsuite/tests/dynlibs/T18072.hs

{-# LANGUAGE ForeignFunctionInterface #-}

module T18072 where

import Foreign.C

foo :: IO CInt
foo = return 3

foreign export ccall foo :: IO CInt