Test Trac 2433

testsuite/tests/ghc-regress/typecheck/should_compile/T2433.hs

+{-# LANGUAGE StandaloneDeriving #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+
+-- Test Trac #2433
+
+module T2433 where
+
+ import Data.Typeable(Typeable1)
+ import T2433_Help( T )
+
+ deriving instance Typeable1 T

testsuite/tests/ghc-regress/typecheck/should_compile/T2433_Help.hs

+module T2433_Help where
+
+data T a = MkT a

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

@@ -273,6 +273,9 @@ test('faxen', normal, compile, [''])
 test('T1495', normal, compile, [''])
 test('T2045', normal, compile, [''])   # Needs -fhpc
 test('T2478', normal, compile, ['']) 
+test('T2433', extra_clean(['T2433_Help.hi', 'T2433_Help.o']), 
+     multimod_compile, ['T2433', '-v0'])
+     
 
 # Omitting temporarily
 test('syn-perf', normal, compile, ['-fcontext-stack=30'])