summaryrefslogtreecommitdiff
path: root/testsuite/tests/driver
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/driver')
-rw-r--r--testsuite/tests/driver/T7060.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/testsuite/tests/driver/T7060.hs b/testsuite/tests/driver/T7060.hs
index 45dac515e4..885a9bc1c7 100644
--- a/testsuite/tests/driver/T7060.hs
+++ b/testsuite/tests/driver/T7060.hs
@@ -1,4 +1,8 @@
main :: IO ()
-main = print (3 + 4 :: Int)
+main = print (f (3 + 4 :: Int))
-{-# RULES "rule" forall xs . map id xs = xs #-}
+f :: Int -> Int
+f x = x
+{-# NOINLINE [1] f #-}
+
+{-# RULES "rule" forall x. f x = 8 #-}