From 377a1fd2eadd2a70cd27f13e2fee6e96c8706a51 Mon Sep 17 00:00:00 2001 From: _ov4 Date: Sat, 17 Oct 2026 10:32:30 +0000 Subject: feat(codegen): overload global functions and procedures Co-Authored-By: Claude Opus 5.5 --- tests/iii/overload-errors/program.cps | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 tests/iii/overload-errors/program.cps (limited to 'tests/iii/overload-errors/program.cps') diff --git a/tests/iii/overload-errors/program.cps b/tests/iii/overload-errors/program.cps new file mode 100644 index 0000000..13d4692 --- /dev/null +++ b/tests/iii/overload-errors/program.cps @@ -0,0 +1,29 @@ +OVERLOAD FUNCTION Mixed(x : INTEGER) RETURNS INTEGER +RETURN x +ENDFUNCTION +FUNCTION Mixed(x : REAL) RETURNS REAL +RETURN x +ENDFUNCTION +OVERLOAD FUNCTION Ret(x : INTEGER) RETURNS INTEGER +RETURN x +ENDFUNCTION +OVERLOAD FUNCTION Ret(x : INTEGER) RETURNS REAL +RETURN x +ENDFUNCTION +OVERLOAD PROCEDURE Mode(BYREF x : INTEGER) +ENDPROCEDURE +OVERLOAD PROCEDURE Mode(BYVAL x : INTEGER) +ENDPROCEDURE +OVERLOAD FUNCTION Exact(x : REAL) RETURNS REAL +RETURN x +ENDFUNCTION +OUTPUT Exact(1) +OVERLOAD PROCEDURE Bounds(a : ARRAY[1:2] OF INTEGER) +ENDPROCEDURE +OVERLOAD PROCEDURE Bounds(a : ARRAY[3:4] OF INTEGER) +ENDPROCEDURE +OVERLOAD FUNCTION LENGTH(x : INTEGER) RETURNS INTEGER +RETURN x +ENDFUNCTION +OUTPUT Exact("text") +OUTPUT Exact() -- cgit v1.3.1-4-g156e