From 4c6dd519143fdbc8ecada56d58103d098c6bd18c Mon Sep 17 00:00:00 2001 From: qadeer Date: Wed, 22 Apr 2015 09:26:56 -0700 Subject: renamed og to civl --- Test/og/parallel4.bpl | 45 --------------------------------------------- 1 file changed, 45 deletions(-) delete mode 100644 Test/og/parallel4.bpl (limited to 'Test/og/parallel4.bpl') diff --git a/Test/og/parallel4.bpl b/Test/og/parallel4.bpl deleted file mode 100644 index f06ff4b8..00000000 --- a/Test/og/parallel4.bpl +++ /dev/null @@ -1,45 +0,0 @@ -// 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