aboutsummaryrefslogtreecommitdiff
path: root/tests/iii/template-explicit-errors/program.cps
blob: 5236328f0e3304a6f3c3d802709f438b36a210ab (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

TEMPLATE <T>
FUNCTION Max(A : T, B : T) RETURNS T
    RETURN A
ENDFUNCTION

FUNCTION Plain(Value : INTEGER) RETURNS INTEGER
    RETURN Value
ENDFUNCTION

TEMPLATE <A>
OVERLOAD FUNCTION Tied(Value : A) RETURNS INTEGER
    RETURN 1
ENDFUNCTION
TEMPLATE <B>
OVERLOAD FUNCTION Tied(Value : B) RETURNS INTEGER
    RETURN 2
ENDFUNCTION

OUTPUT Max<INTEGER, REAL>(1, 2)
OUTPUT Max<REAL>(1, 2.5)
OUTPUT Plain<INTEGER>(1)
OUTPUT EOF<STRING>("file.txt")
CALL MALLOC<INTEGER>(8)
OUTPUT Tied<INTEGER>(1)