testsuite/tests/ffi/should_run/ffi017.hs


1
2
3
4
5
6
7
8
9
10
11
12
13


-- Test for trac #953

module Main where

import System.Posix.Types
import Foreign.C

foreign import ccall safe "unistd.h lseek" foo :: CInt -> COff -> CInt -> IO COff

main :: IO ()
main = return ()