Testsuite: delete Windows line endings [skip ci] (#11631)
[ghc.git] / testsuite / tests / stranal / should_compile / T8037.hs
1 module T8037 where
2
3 import Unsafe.Coerce
4 import Foreign.C.Types
5 import System.IO.Unsafe
6
7 data D4 = D4 CInt CInt CInt
8 data Color3 = Color3 CInt CInt
9
10 crash :: D4 -> IO ()
11 crash x = color (unsafeCoerce x)
12
13 color :: Color3 -> IO ()
14 color (Color3 r g) = f (unsafePerformIO undefined) r g
15
16 foreign import ccall f :: CInt -> CInt -> CInt -> IO ()
17