Test for Trac #1128

testsuite/tests/ghc-regress/rename/should_compile/all.T

@@ -53,6 +53,8 @@ test('rn049', normal, compile, ['-W'])
 test('rn050', normal, multimod_compile, ['rn050', '-v0'])
 clean(['Rn050_A.hi', 'Rn050_A.o'])
 
+test('rn051', normal, compile, [''])
+
 test('timing001', normal, compile, [''])
 test('timing002', normal, compile, [''])
 test('timing003', normal, compile, [''])

testsuite/tests/ghc-regress/rename/should_compile/rn051.hs

+{-# OPTIONS -fno-implicit-prelude #-}
+
+-- This one crashed GHC 6.6 in lookupDeprec
+-- See Trac #1128
+-- and Note [Used names with interface not loaded]
+-- in RnNames
+
+module ShouldCompile where
+
+import Prelude
+
+foo :: Int -> Float
+foo x = 3.0