diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-04 17:49:47 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-04 17:49:47 +0100 |
commit | 29eed98be1139eb26d5095b1e7f6de865fa0cfeb (patch) | |
tree | a7e92484dea0298482e11b00ae8a935d3566218a /testsuite/tests | |
parent | 7f91d0da2072364dd77d5c519ad83902434d3eb2 (diff) | |
download | haskell-29eed98be1139eb26d5095b1e7f6de865fa0cfeb.tar.gz |
Test Trac #7050
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/typecheck/should_compile/T7050.hs | 3 | ||||
-rw-r--r-- | testsuite/tests/typecheck/should_compile/T7050.stderr | 5 | ||||
-rw-r--r-- | testsuite/tests/typecheck/should_compile/all.T | 1 |
3 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_compile/T7050.hs b/testsuite/tests/typecheck/should_compile/T7050.hs new file mode 100644 index 0000000000..2e8c1eb694 --- /dev/null +++ b/testsuite/tests/typecheck/should_compile/T7050.hs @@ -0,0 +1,3 @@ +module T7050 where + +data Foo a = Foo {-# UNPACK #-} !(Foo a) diff --git a/testsuite/tests/typecheck/should_compile/T7050.stderr b/testsuite/tests/typecheck/should_compile/T7050.stderr new file mode 100644 index 0000000000..e7330ce4f5 --- /dev/null +++ b/testsuite/tests/typecheck/should_compile/T7050.stderr @@ -0,0 +1,5 @@ + +T7050.hs:3:14: Warning: + Ignoring unusable UNPACK pragma on the first argument of `Foo' + In the definition of data constructor `Foo' + In the data declaration for `Foo' diff --git a/testsuite/tests/typecheck/should_compile/all.T b/testsuite/tests/typecheck/should_compile/all.T index d5bedae7a8..8907143abf 100644 --- a/testsuite/tests/typecheck/should_compile/all.T +++ b/testsuite/tests/typecheck/should_compile/all.T @@ -386,3 +386,4 @@ test('T7171',normal,run_command, ['$MAKE -s --no-print-directory T7171']) test('T7173', normal, compile, ['']) test('T7196', normal, compile, ['']) +test('T7050', normal, compile, ['']) |