aboutsummaryrefslogtreecommitdiff
path: root/tests/iii/default-return-errors/program.cps
blob: cd309947cccf7e796314b478978aae16beffdd52 (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

OVERLOAD FUNCTION Duplicate(X : INTEGER) RETURNS DEFAULT INTEGER
    RETURN 1
ENDFUNCTION
OVERLOAD FUNCTION duplicate(X : INTEGER) RETURNS DEFAULT REAL
    RETURN 2.0
ENDFUNCTION
FUNCTION Plain() RETURNS DEFAULT INTEGER
    RETURN 1
ENDFUNCTION
OVERLOAD FUNCTION Empty() RETURNS DEFAULT VOID
ENDFUNCTION
OVERLOAD FUNCTION Ambiguous() RETURNS INTEGER
    RETURN 1
ENDFUNCTION
OVERLOAD FUNCTION Ambiguous() RETURNS REAL
    RETURN 2.0
ENDFUNCTION
OVERLOAD FUNCTION Typed() RETURNS DEFAULT INTEGER
    RETURN 1
ENDFUNCTION
OVERLOAD FUNCTION Typed() RETURNS REAL
    RETURN 2.0
ENDFUNCTION
DECLARE Flag : BOOLEAN
Flag <- Typed()
OUTPUT Ambiguous()
OVERLOAD FUNCTION Clash(A : STRING, B : CHAR) RETURNS DEFAULT INTEGER
    RETURN 1
ENDFUNCTION
OVERLOAD FUNCTION Clash(A : CHAR, B : STRING) RETURNS REAL
    RETURN 2.0
ENDFUNCTION
OUTPUT Clash("a", "b")