From 39661855c0816ac248be437704c76f58359cb5f0 Mon Sep 17 00:00:00 2001 From: _ov4 Date: Sat, 17 Oct 2026 06:52:23 +0000 Subject: feat(classes): construct declared objects and nested fields and arrays Co-Authored-By: Claude Opus 5.5 --- .../class-constructor-default-errors/program.cps | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 tests/iii/class-constructor-default-errors/program.cps (limited to 'tests/iii/class-constructor-default-errors/program.cps') diff --git a/tests/iii/class-constructor-default-errors/program.cps b/tests/iii/class-constructor-default-errors/program.cps new file mode 100644 index 0000000..43dfef7 --- /dev/null +++ b/tests/iii/class-constructor-default-errors/program.cps @@ -0,0 +1,21 @@ +CLASS Required + PROCEDURE NEW(Number : INTEGER) + ENDPROCEDURE +ENDCLASS +CLASS Plain + Value : INTEGER +ENDCLASS +CLASS Hidden + PRIVATE PROCEDURE NEW() + ENDPROCEDURE +ENDCLASS +TYPE Wrapped + DECLARE Item : Required +ENDTYPE +DECLARE Missing : Required +DECLARE EmptyArgs : Required() +DECLARE Extra : Plain(1) +DECLARE PrivateObject : Hidden +DECLARE Items : ARRAY[1:2] OF Required +DECLARE Nested : Wrapped +DECLARE Scalar : INTEGER() -- cgit v1.3.1-4-g156e