summaryrefslogtreecommitdiff
path: root/Test/dafny4
diff options
context:
space:
mode:
authorGravatar qunyanm <unknown>2015-05-18 16:07:00 -0700
committerGravatar qunyanm <unknown>2015-05-18 16:07:00 -0700
commitb4886986df62f8db3c65859bb0d34c16658b40cc (patch)
tree1921a77debda6fc2bee1146fa50efc3ed927c31f /Test/dafny4
parent47e3c9e215f1c5f51d35a974fccb5bd612eaa8be (diff)
Fix issue #81. Pass a call's TypeArgumentSubstitution to CheckCallTermination.
Diffstat (limited to 'Test/dafny4')
-rw-r--r--Test/dafny4/Bug81.dfy9
-rw-r--r--Test/dafny4/Bug81.dfy.expect2
2 files changed, 11 insertions, 0 deletions
diff --git a/Test/dafny4/Bug81.dfy b/Test/dafny4/Bug81.dfy
new file mode 100644
index 00000000..1992d666
--- /dev/null
+++ b/Test/dafny4/Bug81.dfy
@@ -0,0 +1,9 @@
+// RUN: %dafny /compile:0 "%s" > "%t"
+// RUN: %diff "%s.expect" "%t"
+
+function {:opaque} RefineSeqToSeq<T,U>(s:seq<T>, refine_func:T->U) : seq<U>
+ reads refine_func.reads;
+{
+ if |s| == 0 then []
+ else RefineSeqToSeq(s[1..], refine_func)
+}
diff --git a/Test/dafny4/Bug81.dfy.expect b/Test/dafny4/Bug81.dfy.expect
new file mode 100644
index 00000000..069e7767
--- /dev/null
+++ b/Test/dafny4/Bug81.dfy.expect
@@ -0,0 +1,2 @@
+
+Dafny program verifier finished with 2 verified, 0 errors