996
|
1 v ; This file tests concurrency, in places where there has been previous ;
|
|
2 ; problems in cfunge. ;
|
|
3
|
|
4 > #vta"DOOG :1" >:#,_ v
|
|
5 > zzz@
|
|
6 v <
|
|
7
|
|
8 > #vtzza"DOOG :2" >:#,_ v
|
|
9 >#vtzz@
|
|
10 >@
|
|
11 v <
|
|
12
|
|
13 > #vt >< v
|
|
14 >#vta"DOOG :3">:#,_ a '>9cp@
|
|
15 > zzz@
|
|
16 v <
|
|
17 z
|
|
18 >zz#vt zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzv
|
|
19 >#vtzzz@ z
|
|
20 >a"DOOG :4">:#,_@ z
|
|
21 vzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz<
|
|
22
|
|
23 ; Just testing threading, in certain versions this cause an assertion ;
|
|
24 >zzzzzzzz@
|
|
25 > #^tz#vt v
|
|
26 >zzzz@
|
|
27 v <
|
|
28
|
|
29
|
|
30
|
|
31
|
|
32 @
|