1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Test for bug #713, results in crashes in GHC prior to 20060315 with +RTS -N2
# Add 'threaded2_hT' so that we have at least one test for bug #5127
if (ghc_with_threaded_rts == 1 and ghc_with_smp == 1):
ways = ['threaded2_hT']
else:
ways = []
# the conditions are fairly delicate. It must be compiled without optimisation,
# hence -O0:
test('concprog002',
[only_ways(['threaded2','threaded2_hT']),
extra_ways(ways),
exit_code(1),
when(fast(), skip),
reqlib('random'),
extra_clean(['Event.hi', 'Event.o',
'Scheduler.hi', 'Scheduler.o',
'Server.hi', 'Server.o',
'Thread.hi', 'Thread.o'])],
multimod_compile_and_run,
['Server','-O0'])
|
