path: root/testsuite/tests/ghc-regress/ghci/should_run/2589.hs

{-# LANGUAGE MagicHash #-}
module Main where

import GHC.Ptr
import GHC.Exts
import Foreign.Ptr

main = print (Ptr nullAddr# == nullPtr)