Commit 7a7ace72 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #7888

parent 1fab45ea
{-# LANGUAGE RankNTypes, MagicHash #-}
module T7888 where
import GHC.Err( undefined )
import GHC.Prim
f :: (forall a. a) -> b
f = undefined
g :: Int -> Int#
g _ = undefined
......@@ -401,3 +401,4 @@ test('T7641', normal, compile, [''])
test('T7827', normal, compile, [''])
test('T7875', normal, compile, [''])
test('T7268', normal, compile, [''])
test('T7888', normal, compile, [''])
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