Always do the worker/wrapper split for NOINLINEs
[ghc.git] / testsuite / tests / simplCore / should_compile / T13543.hs
index 88a0b14..2697677 100644 (file)
@@ -8,7 +8,7 @@ g (p,q) = p+q
 
 f :: Int -> Int -> Int -> Int
 f x p q
-  = g (let j y = (p,q)
+  = g (let j y = (y+p,q)
            {-# NOINLINE j #-}
           in
           case x of