Commit 5863ce4e authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #8383

parent 44629925
{-# LANGUAGE MagicHash #-}
module T8383 where
import GHC.Exts
f :: Int# -> Int#
f x = x
foo = print $ (tagToEnum# (f 0#) :: Bool)
bar = print $ (tagToEnum# (f 1#) :: Bool)
......@@ -156,3 +156,5 @@ test('T8113', normal, ghci_script, ['T8113.script'])
test('T8172', normal, ghci_script, ['T8172.script'])
test('T8215', normal, ghci_script, ['T8215.script'])
test('T8357', normal, ghci_script, ['T8357.script'])
test('T8383', normal, ghci_script, ['T8383.script'])
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