[commit: testsuite] master: Add failing test, see issue #8131. (3294e3b)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/3294e3b574680c58edf8c83932b9533b66396739/testsuite

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

commit 3294e3b574680c58edf8c83932b9533b66396739
Author: Austin Seipp <aseipp at pobox.com>
Date:   Wed Aug 14 01:36:32 2013 -0500

    Add failing test, see issue #8131.
    
    Signed-off-by: Austin Seipp <aseipp at pobox.com>


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

3294e3b574680c58edf8c83932b9533b66396739
 tests/llvm/should_compile/T8131.cmm |    7 +++++++
 tests/llvm/should_compile/all.T     |    1 +
 2 files changed, 8 insertions(+)

diff --git a/tests/llvm/should_compile/T8131.cmm b/tests/llvm/should_compile/T8131.cmm
new file mode 100644
index 0000000..153fb02
--- /dev/null
+++ b/tests/llvm/should_compile/T8131.cmm
@@ -0,0 +1,7 @@
+#include "Cmm.h"
+
+testMemcpy (W_ dst, W_ src, W_ l, W_ sz)
+{
+  prim %memcpy(dst, src, l, sz);
+  return ();
+}
diff --git a/tests/llvm/should_compile/all.T b/tests/llvm/should_compile/all.T
index 448e8e0..5e5ca53 100644
--- a/tests/llvm/should_compile/all.T
+++ b/tests/llvm/should_compile/all.T
@@ -12,3 +12,4 @@ test('T5681', normal, compile, [''])
 test('T6158', [reqlib('vector'), reqlib('primitive')], compile, ['-package vector -package primitive'])
 test('T7571', cmm_src, compile, [''])
 test('T7575', unless(wordsize(32), skip), compile, [''])
+test('T8131', [cmm_src, expect_broken(8131)], compile, [''])