summaryrefslogtreecommitdiff
path: root/testsuite/tests/concurrent/prog003/all.T
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/concurrent/prog003/all.T')
-rw-r--r--testsuite/tests/concurrent/prog003/all.T33
1 files changed, 33 insertions, 0 deletions
diff --git a/testsuite/tests/concurrent/prog003/all.T b/testsuite/tests/concurrent/prog003/all.T
new file mode 100644
index 0000000000..fc342e9fd0
--- /dev/null
+++ b/testsuite/tests/concurrent/prog003/all.T
@@ -0,0 +1,33 @@
+# This is a program for benchmarking mutable linked list
+# implementations by Martin Sulzmann and Simon Marlow. The reason it
+# is here is that one variant of it demonstrated a nasty bug in the
+# RTS, see the patch "Fix a bug that can lead to noDuplicate# not
+# working sometimes", and the comments with stg_noDuplicatzh in
+# rts/PrimOps.cmm.
+#
+# This test won't actually demonstrate the bug since it needs -N3 or
+# greater (and hence a 3-core box) and the bug only manifests very
+# occasionally, but at least the test is here for posterity.
+
+test('concprog003',
+ [skip_if_fast,
+ extra_clean([
+ 'BackList2.hi', 'BackList2.o',
+ 'ImmList.hi', 'ImmList.o',
+ 'MainMVarList.hi', 'MainMVarList.o',
+ 'TestDataParser.hi', 'TestDataParser.o',
+ 'CASList.hi', 'CASList.o',
+ 'IOList.hi', 'IOList.o',
+ 'MVarListLockCoupling.hi', 'MVarListLockCoupling.o',
+ 'TestRun.hi', 'TestRun.o',
+ 'Collate.hi', 'Collate.o',
+ 'LazyList2.hi', 'LazyList2.o',
+ 'RefInterface.hi', 'RefInterface.o',
+ 'Collection.hi', 'Collection.o',
+ 'Main.hi', 'Main.o',
+ 'TestData.hi', 'TestData.o'
+ ]),
+ extra_run_opts('IMM -t test-8-3000-3000-2-1-4'),
+ ],
+ multimod_compile_and_run,
+ ['Main',''])