diff options
author | qadeer <qadeer@microsoft.com> | 2015-04-22 09:26:56 -0700 |
---|---|---|
committer | qadeer <qadeer@microsoft.com> | 2015-04-22 09:26:56 -0700 |
commit | 4c6dd519143fdbc8ecada56d58103d098c6bd18c (patch) | |
tree | abdbf5f883d31236a221a5b95f5f0364e75caf36 /Test/civl/parallel4.bpl | |
parent | 95a9ed0282811aa2bc3170f41b8b63508918b28e (diff) |
renamed og to civl
Diffstat (limited to 'Test/civl/parallel4.bpl')
-rw-r--r-- | Test/civl/parallel4.bpl | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/Test/civl/parallel4.bpl b/Test/civl/parallel4.bpl new file mode 100644 index 00000000..f06ff4b8 --- /dev/null +++ b/Test/civl/parallel4.bpl @@ -0,0 +1,45 @@ +// RUN: %boogie -noinfer -typeEncoding:m -useArrayTheory "%s" > "%t"
+// RUN: %diff "%s.expect" "%t"
+var {:layer 0,1} a:int;
+
+procedure {:yields} {:layer 1} Allocate() returns ({:linear "tid"} tid: int)
+{
+ yield;
+ call tid := AllocateLow();
+ yield;
+}
+
+function {:builtin "MapConst"} MapConstBool(bool) : [int]bool;
+function {:inline} {:linear "tid"} TidCollector(x: int) : [int]bool
+{
+ MapConstBool(false)[x := true]
+}
+
+procedure {:yields} {:layer 1} main()
+{
+ var {:linear "tid"} i: int;
+ var {:linear "tid"} j: int;
+ call i := Allocate();
+ call j := Allocate();
+ par i := t(i) | j := t(j);
+}
+
+procedure {:yields} {:layer 1} t({:linear_in "tid"} i': int) returns ({:linear "tid"} i: int)
+{
+ i := i';
+ call Yield();
+ assert {:layer 1} a == old(a);
+ call Incr();
+ yield;
+}
+
+procedure {:yields} {:layer 0,1} Incr();
+ensures {:atomic} |{A: a := a + 1; return true; }|;
+
+procedure {:yields} {:layer 1} Yield()
+{
+ yield;
+}
+
+procedure {:yields} {:layer 0,1} AllocateLow() returns ({:linear "tid"} tid: int);
+ensures {:atomic} |{ A: return true; }|;
|