blob: 2ac00196f4983c1440924e88c1e2a44fa1303299 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
// RUN: %dafny /compile:0 /print:"%t.print" /dprint:"%t.dprint" "%s" > "%t"
// RUN: %diff "%s.expect" "%t"
// Negative tests
// Not well-founded mutual recursions.
function seq_loop_i(xs: seq<int>): int
{
if (xs == [1, 2]) then seq_loop_s([[1,2]])
else 0
}
function seq_loop_s(xs: seq<seq<int>>): int
{
if (xs == [[1, 2]]) then seq_loop_i([1,2])
else 0
}
datatype wrap = X | WS(ds: seq<wrap>);
function wrap_loop_1(xs: seq<wrap>): int
{
if (xs == [WS([X,X])]) then wrap_loop_2(WS([X,X]))
else 0
}
function wrap_loop_2(xs: wrap): int
{
if (xs == WS([X,X])) then wrap_loop_3([X,X])
else 0
}
function wrap_loop_3(xs: seq<wrap>): int
{
if (xs == [X,X]) then wrap_loop_1([WS([X,X])])
else 0
}
|
