source: CIVL/examples/contracts/with.cvl@ cc8e265

1.23 2.0 main test-branch
Last change on this file since cc8e265 was 762b93c, checked in by Ziqing Luo <ziqing@…>, 10 years ago

fix collate_departs bug

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@3653 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100644
File size: 425 bytes
Line 
1#include<collate.cvh>
2
3$input int N=2;
4
5$gcollator gcollator=$gcollator_create($here, N);
6
7void process(int id){
8 $scope here = $here;
9 $collator collator=$collator_create(gcollator, here, id);
10 $collate_state cs=$collate_arrives(collator, here);
11
12 $with (cs) {
13 $assert($true);
14 }
15 $collate_departs(collator, cs);
16 $free(collator);
17}
18
19
20int main(){
21 $parfor(int i: 0 .. N-1)
22 process(i);
23 $free(gcollator);
24}
Note: See TracBrowser for help on using the repository browser.