Commit b8f1b018 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #11444

parent b78fa759
{-# LANGUAGE MagicHash, BangPatterns #-}
-- Produces a Lint error in GHC 8.0
module T11444 where
import GHC.Exts (reallyUnsafePtrEquality#, Int (..))
ptrEq :: a -> a -> Bool
ptrEq !x !y = I# (reallyUnsafePtrEquality# x y) == 1
...@@ -262,3 +262,4 @@ test('T13025', ...@@ -262,3 +262,4 @@ test('T13025',
run_command, run_command,
['$MAKE -s --no-print-directory T13025']) ['$MAKE -s --no-print-directory T13025'])
test('T13156', normal, run_command, ['$MAKE -s --no-print-directory T13156']) test('T13156', normal, run_command, ['$MAKE -s --no-print-directory T13156'])
test('T11444', 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