summaryrefslogtreecommitdiff
path: root/Test/test0/Quoting.bpl
diff options
context:
space:
mode:
Diffstat (limited to 'Test/test0/Quoting.bpl')
-rw-r--r--Test/test0/Quoting.bpl16
1 files changed, 16 insertions, 0 deletions
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();
+}