path: root/testsuite/tests/codeGen/should_compile/T9964.hs

{-# LANGUAGE UnboxedTuples #-}
module T9964 where

import GHC.Base

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