diff options
| author |  mikebarnett <unknown> | 2009-07-15 21:03:41 +0000 |
|---|---|---|
| committer | mikebarnett <unknown> | 2009-07-15 21:03:41 +0000 |
| commit | ce1c2de044c91624370411e23acab13b0381949b (patch) | |
| tree | 592539996fe08050ead5ee210c973801611dde40 /Test/test0/Quoting.bpl | |
Initial set of files.
Diffstat (limited to 'Test/test0/Quoting.bpl')
| -rw-r--r-- | Test/test0/Quoting.bpl | 16 |
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();
+}
|