From d652155ae013f36a1ee17653a8e458baad2d9c2c Mon Sep 17 00:00:00 2001
From: Checkmate50 <dgeisler50@gmail.com>
Date: Mon, 6 Jun 2016 23:14:18 -0600
Subject: Merging complete.  Everything looks good *crosses fingers*

---
 Test/civl/parallel4.bpl | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 Test/civl/parallel4.bpl

(limited to 'Test/civl/parallel4.bpl')

diff --git a/Test/civl/parallel4.bpl b/Test/civl/parallel4.bpl
new file mode 100644
index 00000000..33a21446
--- /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; }|;
-- 
cgit v1.2.3