blob: 81fe0ed58f180a822c9d83fa72f282a1ca4d48ac (
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
// RUN: %dafny /compile:0 "%s" > "%t"
// RUN: %diff "%s.expect" "%t"
module A {
default export Public { f, h}
export E1 { f, g}
export E2 extends Public, E1 {T}
export Friend extends Public {g, T}
export Fruit {Data}
method h() {}
function f(): int { 818 }
function g() : int { 819 }
function k() : int { 820 }
class T
{
static method l() {}
}
datatype Data = Lemon | Kiwi(int)
}
module B {
import X = A.Public
method m() {
X.h(); // OK
assert X.f() == 818; // OK
assert X.g() == 819; // error
assert X.k() == 820; // error
X.T.l(); // error
}
}
module C {
import X = A.Friend
method m() {
X.h(); // OK
assert X.f() == 818; // OK
assert X.g() == 819; // OK
assert X.k() == 820; // error
X.T.l(); // OK
}
}
module D {
import opened A
method m() {
h(); // OK
assert f() == 818; // OK
assert g() == 819; // error
assert k() == 820; // error
}
}
module E {
import opened A.Fruit
function G(d: Data): int
requires d != Data.Lemon
{
match d
case Lemon => G(d)
case Kiwi(x) => 7
case Orang => 8 // error
}
}
|
