testsuite/tests/rts/derefnull.hs


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


{-
By default, on Windows a segfault will pop up an annoying dialog box.
We want the RTS to catch it instead.
-}

module Main where

import Foreign

main :: IO ()
main = do x <- peek nullPtr
          print (x :: Int)