[commit: testsuite] master: Test Trac #8280 (2ed33c3)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/2ed33c3ecdb9288ee9470d9eb878eb17371b1ec8/testsuite

>---------------------------------------------------------------

commit 2ed33c3ecdb9288ee9470d9eb878eb17371b1ec8
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Sep 18 16:25:51 2013 +0100

    Test Trac #8280


>---------------------------------------------------------------

2ed33c3ecdb9288ee9470d9eb878eb17371b1ec8
 tests/deriving/should_run/T8280.hs     |    8 ++++++++
 tests/deriving/should_run/T8280.stdout |    1 +
 tests/deriving/should_run/all.T        |    1 +
 3 files changed, 10 insertions(+)

diff --git a/tests/deriving/should_run/T8280.hs b/tests/deriving/should_run/T8280.hs
new file mode 100644
index 0000000..4ccc5b4
--- /dev/null
+++ b/tests/deriving/should_run/T8280.hs
@@ -0,0 +1,8 @@
+{-# LANGUAGE MagicHash #-}
+module Main where
+
+import GHC.Prim
+
+data A = A Word# deriving Show
+
+main = print (A (int2Word# 4#))
diff --git a/tests/deriving/should_run/T8280.stdout b/tests/deriving/should_run/T8280.stdout
new file mode 100644
index 0000000..4e5c0aa
--- /dev/null
+++ b/tests/deriving/should_run/T8280.stdout
@@ -0,0 +1 @@
+A 4
diff --git a/tests/deriving/should_run/all.T b/tests/deriving/should_run/all.T
index a2763ac..572f95b 100644
--- a/tests/deriving/should_run/all.T
+++ b/tests/deriving/should_run/all.T
@@ -35,4 +35,5 @@ test('T5041', normal, compile_and_run, [''])
 test('T5628', exit_code(1), compile_and_run, [''])
 test('T5712', normal, compile_and_run, [''])
 test('T7931', normal, compile_and_run, [''])
+test('T8280', normal, compile_and_run, [''])