Test Trac #5041

tests/ghc-regress/deriving/should_run/T5041.hs

+{-# LANGUAGE MagicHash #-}
+
+module Main where
+
+data T = T1# | T2# Int deriving( Read, Show )
+
+foo :: [T]
+foo = read "[ T1#, T2# 4, T2# 5 ]"
+main = print foo
+

tests/ghc-regress/deriving/should_run/T5041.stdout

+[T1#,T2# 4,T2# 5]

tests/ghc-regress/deriving/should_run/all.T

@@ -31,3 +31,4 @@ test('drvrun-functor1', normal, compile_and_run, [''])
 test('drvrun-foldable1', normal, compile_and_run, [''])
 test('T4136', normal, compile_and_run, [''])
 test('T4528a', normal, compile_and_run, [''])
+test('T5041', normal, compile_and_run, [''])