testsuite/tests/simplCore/should_compile/T12076a.hs


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

{-# OPTIONS_GHC -O0 #-}
module T12076a(f) where

import GHC.Exts

{-# NOINLINE z #-}
z = ()

f :: () -> ()
f _ = let x = lazy z
      in g x x

{-# NOINLINE g #-}
g :: () -> () -> ()
g _ _ = ()