Add failing test, see issue #8131.

Signed-off-by: Austin Seipp <aseipp@pobox.com>

2 files changed, 8 insertions, 0 deletions

diff --git a/testsuite/tests/llvm/should_compile/T8131.cmm b/testsuite/tests/llvm/should_compile/T8131.cmm
new file mode 100644
index 0000000000..153fb02b24
--- /dev/null
+++ b/testsuite/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/testsuite/tests/llvm/should_compile/all.T b/testsuite/tests/llvm/should_compile/all.T
index 448e8e0097..5e5ca53e52 100644
--- a/testsuite/tests/llvm/should_compile/all.T
+++ b/testsuite/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, [''])