From b4886986df62f8db3c65859bb0d34c16658b40cc Mon Sep 17 00:00:00 2001
From: qunyanm <unknown>
Date: Mon, 18 May 2015 16:07:00 -0700
Subject: Fix issue #81. Pass a call's TypeArgumentSubstitution to
 CheckCallTermination.

---
 Test/dafny4/Bug81.dfy | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 Test/dafny4/Bug81.dfy

(limited to 'Test/dafny4/Bug81.dfy')

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)
+}
-- 
cgit v1.2.3