ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/T9964.hs

{-# LANGUAGE UnboxedTuples #-}
module T9964 where

import GHC.Base

crash :: IO ()
crash = IO (\s ->
  let
    {-# NOINLINE s' #-}
    s' = s
  in (# s', () #))