Test Trac #2701

testsuite/tests/ghc-regress/deriving/should_fail/T2701.hs

+{-# LANGUAGE MagicHash, DeriveDataTypeable #-}
+module T2700 where
+
+import GHC.Prim
+
+import Data.Data
+import Data.Typeable
+
+data Foo = MkFoo Int#
+           deriving (Typeable, Data)

testsuite/tests/ghc-regress/deriving/should_fail/T2701.stderr

+
+T2701.hs:10:31:
+    Can't make a derived instance of `Data Foo'
+      (Constructor `MkFoo' has arguments of unlifted type)
+    In the data type declaration for `Foo'

testsuite/tests/ghc-regress/deriving/should_fail/all.T

@@ -20,3 +20,4 @@ test('drvfail016',
      ['$MAKE --no-print-directory -s drvfail016'])
 test('T2394', normal, compile_fail, [''])
 test('T2604', normal, compile_fail, [''])
+test('T2701', normal, compile_fail, [''])