strengthened type checking

cleaned up the generation of mover checks (based on example from Chris)
added two examples from Chris to regressions

1 files changed, 34 insertions, 0 deletions

diff --git a/Test/og/chris2.bpl b/Test/og/chris2.bpl
new file mode 100644
index 00000000..73f112ed
--- /dev/null
+++ b/Test/og/chris2.bpl
@@ -0,0 +1,34 @@
+// RUN: %boogie -noinfer -typeEncoding:m -useArrayTheory "%s" > "%t"

+// RUN: %diff "%s.expect" "%t"

+var{:layer 20} x:int;

+

+procedure{:yields}{:layer 20,25} p_gt1_lower();

+  ensures{:both}

+  |{

+    A:

+    x := x + 1;

+    return true;

+  }|;

+

+procedure{:yields}{:layer 25,40} p_gt1()

+  ensures{:both}

+  |{

+    A:

+    x := x + 1;

+    return true;

+  }|;

+{

+  yield;

+  call p_gt1_lower();

+  yield;

+}

+

+procedure{:yields}{:layer 20,40} p_gt2();

+  ensures{:both}

+  |{

+    A:

+    assert x == 0;

+    return true;

+  }|;

+

+