From e572d278a44d286c8713d0ee4af9c72a3d1ca73c Mon Sep 17 00:00:00 2001 From: _ov4 Date: Sat, 17 Oct 2026 10:34:37 +0000 Subject: feat(classes): overload methods and NEW constructors Co-Authored-By: Claude Opus 5.5 --- tests/iii/class-overload-errors/program.cps | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 tests/iii/class-overload-errors/program.cps (limited to 'tests/iii/class-overload-errors/program.cps') diff --git a/tests/iii/class-overload-errors/program.cps b/tests/iii/class-overload-errors/program.cps new file mode 100644 index 0000000..586d47d --- /dev/null +++ b/tests/iii/class-overload-errors/program.cps @@ -0,0 +1,20 @@ +CLASS Mixed +OVERLOAD PROCEDURE Set(x : INTEGER) +ENDPROCEDURE +PROCEDURE Set(x : STRING) +ENDPROCEDURE +ENDCLASS +CLASS Required +OVERLOAD PROCEDURE NEW(x : INTEGER) +ENDPROCEDURE +ENDCLASS +CLASS Secret +PRIVATE OVERLOAD PROCEDURE Set(x : INTEGER) +ENDPROCEDURE +PUBLIC OVERLOAD PROCEDURE Set(x : STRING) +ENDPROCEDURE +ENDCLASS +DECLARE item : Required +DECLARE obj : Secret +CALL obj.Set(1) +CALL obj.Set(TRUE) -- cgit v1.3.1-4-g156e