From ce1c2de044c91624370411e23acab13b0381949b Mon Sep 17 00:00:00 2001
From: mikebarnett <unknown>
Date: Wed, 15 Jul 2009 21:03:41 +0000
Subject: Initial set of files.

---
 Test/test0/Quoting.bpl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 Test/test0/Quoting.bpl

(limited to 'Test/test0/Quoting.bpl')

diff --git a/Test/test0/Quoting.bpl b/Test/test0/Quoting.bpl
new file mode 100644
index 00000000..eaf8fe7a
--- /dev/null
+++ b/Test/test0/Quoting.bpl
@@ -0,0 +1,16 @@
+function \true() returns(bool);
+
+type \procedure;
+procedure \old(\any : \procedure) returns(\var : \procedure)
+{
+  var \modifies : \procedure;
+  \modifies := \any;
+  \var := \modifies;
+}
+
+procedure qux(a : \procedure)
+{
+  var \var : \procedure; var x : bool;
+  call \var := \old(a);
+  x := \true();
+}
-- 
cgit v1.2.3