summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/parser/should_compile/read039.hs
blob: 032c64f624f9d7ebccf44798323c0bb469c86f1c (plain)
1
2
3
4
5
6
7
{-# LANGUAGE ForeignFunctionInterface, CPP #-}
-- Test the LANGUAGE pragma
module ShouldCompile where

#if 1
foreign import ccall "foo" foo :: Int -> IO Int
#endif