diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-09-18 16:25:51 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-09-20 15:38:17 +0100 |
| commit | 9d0ae764224f923beccc78acb1a24417d741b8e9 (patch) | |
| tree | f7f8fc03777aaee1dffffe71dcb6babe9eae0680 /testsuite/tests/deriving | |
| parent | 1e24696542cb4dc9fbb5186f4ecd7422ea3f6426 (diff) | |
| download | haskell-9d0ae764224f923beccc78acb1a24417d741b8e9.tar.gz | |
Test Trac #8280
Diffstat (limited to 'testsuite/tests/deriving')
| -rw-r--r-- | testsuite/tests/deriving/should_run/T8280.hs | 8 | ||||
| -rw-r--r-- | testsuite/tests/deriving/should_run/T8280.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/deriving/should_run/all.T | 1 |
3 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/deriving/should_run/T8280.hs b/testsuite/tests/deriving/should_run/T8280.hs new file mode 100644 index 0000000000..4ccc5b4164 --- /dev/null +++ b/testsuite/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/testsuite/tests/deriving/should_run/T8280.stdout b/testsuite/tests/deriving/should_run/T8280.stdout new file mode 100644 index 0000000000..4e5c0aa287 --- /dev/null +++ b/testsuite/tests/deriving/should_run/T8280.stdout @@ -0,0 +1 @@ +A 4 diff --git a/testsuite/tests/deriving/should_run/all.T b/testsuite/tests/deriving/should_run/all.T index a2763ac6ab..572f95bacd 100644 --- a/testsuite/tests/deriving/should_run/all.T +++ b/testsuite/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, ['']) |