Commit 0294a61f authored by simonmar's avatar simonmar
Browse files

[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).
parent 2cf530f2
......@@ -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, [''])
{-# 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#
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment