From d652155ae013f36a1ee17653a8e458baad2d9c2c Mon Sep 17 00:00:00 2001 From: Checkmate50 Date: Mon, 6 Jun 2016 23:14:18 -0600 Subject: Merging complete. Everything looks good *crosses fingers* --- Test/test21/Boxing.bpl | 52 +++++++++++++++++++++++++------------------------- 1 file changed, 26 insertions(+), 26 deletions(-) (limited to 'Test/test21/Boxing.bpl') diff --git a/Test/test21/Boxing.bpl b/Test/test21/Boxing.bpl index 0112b6cf..aa7c53b3 100644 --- a/Test/test21/Boxing.bpl +++ b/Test/test21/Boxing.bpl @@ -1,27 +1,27 @@ -// RUN: %boogie -typeEncoding:n -logPrefix:0n "%s" > "%t" -// RUN: %diff "%s.n.expect" "%t" -// RUN: %boogie -typeEncoding:p -logPrefix:0p "%s" > "%t" -// RUN: %diff "%s.p.expect" "%t" -// RUN: %boogie -typeEncoding:a -logPrefix:0a "%s" > "%t" -// RUN: %diff "%s.a.expect" "%t" - -type Box; - -function box(a) returns (Box); -function unbox(Box) returns (a); - -axiom (forall x:a :: unbox(box(x)) == x); - -var b1: Box; -var b2: Box; -var b3: Box; - -procedure P() returns () - modifies b1, b2, b3; { - b1 := box(13); - b2 := box(true); - b3 := box(b1); - - assert unbox(b1) == 13 && unbox(b2) == true && unbox(unbox(b3)) == 13; - assert unbox(b1) == true; // error +// RUN: %boogie -typeEncoding:n -logPrefix:0n "%s" > "%t" +// RUN: %diff "%s.n.expect" "%t" +// RUN: %boogie -typeEncoding:p -logPrefix:0p "%s" > "%t" +// RUN: %diff "%s.p.expect" "%t" +// RUN: %boogie -typeEncoding:a -logPrefix:0a "%s" > "%t" +// RUN: %diff "%s.a.expect" "%t" + +type Box; + +function box(a) returns (Box); +function unbox(Box) returns (a); + +axiom (forall x:a :: unbox(box(x)) == x); + +var b1: Box; +var b2: Box; +var b3: Box; + +procedure P() returns () + modifies b1, b2, b3; { + b1 := box(13); + b2 := box(true); + b3 := box(b1); + + assert unbox(b1) == 13 && unbox(b2) == true && unbox(unbox(b3)) == 13; + assert unbox(b1) == true; // error } \ No newline at end of file -- cgit v1.2.3