Test for derivign

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

@@ -12,4 +12,5 @@ test('drv011', normal, compile, [''])
 test('drv012', normal, compile, [''])
 test('drv013', normal, compile, [''])
 test('drv014', normal, compile, [''])
+test('drv015', normal, compile, [''])
 test('drv020', normal, compile, [''])

testsuite/tests/ghc-regress/deriving/should_compile/drv015.hs

+{-# OPTIONS -fglasgow-exts #-}
+
+module ShouldCompile where
+
+newtype Pair1 f g a = Pair1 {unPair1 :: (f a, g a)}
+  deriving (Eq, Ord, Show)