Don't throw exception when start_phase==stop_phase (#10219)
[ghc.git] / testsuite / tests / driver / Static001.hs
1 {-# LANGUAGE ForeignFunctionInterface #-}
2 module Static001 where
3 foreign export ccall f :: Int -> Int
4 f :: Int -> Int
5 f n = n + 1