diff options
| author | Austin Seipp <aseipp@pobox.com> | 2013-08-14 01:36:32 -0500 |
|---|---|---|
| committer | Austin Seipp <aseipp@pobox.com> | 2013-08-14 01:36:32 -0500 |
| commit | 0ced36ce3c3f035ef68249803177e07f13eaa697 (patch) | |
| tree | a7a24ab39b0403a423cc420a6c88842c76ad4414 /testsuite/tests/llvm | |
| parent | 015da28815a28d044a74be8fc19cebe20ef2f5b5 (diff) | |
| download | haskell-0ced36ce3c3f035ef68249803177e07f13eaa697.tar.gz | |
Add failing test, see issue #8131.
Signed-off-by: Austin Seipp <aseipp@pobox.com>
Diffstat (limited to 'testsuite/tests/llvm')
| -rw-r--r-- | testsuite/tests/llvm/should_compile/T8131.cmm | 7 | ||||
| -rw-r--r-- | testsuite/tests/llvm/should_compile/all.T | 1 |
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, ['']) |