Test for RULES type-matching

testsuite/tests/ghc-regress/simplCore/should_run/all.T

@@ -16,3 +16,4 @@ test('simplrun004', normal, compile_and_run, [''])
 test('simplrun005', normal, compile_and_run, [''])
 test('simplrun006', expect_broken(149), compile_and_run, [''])
 test('simplrun007', normal, compile_and_run, [''])
+test('simplrun008', normal, compile_and_run, [''])

testsuite/tests/ghc-regress/simplCore/should_run/simplrun008.hs

+{-# OPTIONS -fglasgow-exts -O #-}
+
+module Main where
+import Data.Char
+
+{-# NOINLINE f #-}
+f :: Int -> String
+f x = "NOT FIRED"
+
+{-# NOINLINE neg #-}
+neg :: Int -> Int
+neg = negate
+
+{-# RULES
+     "f" forall (c::Char->Int) (x::Char). f (c x) = "RULE FIRED"
+ #-}
+
+main = do { print (f (ord 'a')) 	-- Rule should fire
+	  ; print (f (neg 1)) }		-- Rule should not fire

testsuite/tests/ghc-regress/simplCore/should_run/simplrun008.stdout

+"RULE FIRED"
+"NOT FIRED"