[project @ 2006-01-09 12:49:28 by simonmar]

Add test case that causes a core-lint failure (cut down from
Encoding.hs in HEAD).

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

@@ -60,3 +60,4 @@ test('ds053', normal, compile, [''])
 test('ds054', normal, compile, [''])
 test('ds055', only_compiler_types(['ghc']), compile, [''])
 test('ds056', normal, compile, ['-Wall'])
+test('ds057', normal, compile, [''])

testsuite/tests/ghc-regress/deSugar/should_compile/ds057.hs

+{-# OPTIONS_GHC -fglasgow-exts #-}
+module ShouldCompile where
+
+import Data.Word
+import GHC.Ptr
+import GHC.Exts
+
+f# :: Int# -> (# Char#, Int# #)
+f# a# = (# '\0'#, a#  #)
+
+g :: Int -> (Char, Int)
+g (I# a#) = ( C# c#, I# b# )
+  where (# c#, b# #) = f# a#