diff options
Diffstat (limited to 'tests/iii/class-new-errors/program.cps')
| -rw-r--r-- | tests/iii/class-new-errors/program.cps | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/iii/class-new-errors/program.cps b/tests/iii/class-new-errors/program.cps new file mode 100644 index 0000000..3a9e9c2 --- /dev/null +++ b/tests/iii/class-new-errors/program.cps @@ -0,0 +1,26 @@ +CLASS Box + Value : INTEGER +ENDCLASS +CLASS Other + Value : INTEGER +ENDCLASS +CLASS Required + PROCEDURE NEW(Number : INTEGER) + ENDPROCEDURE +ENDCLASS +CLASS Hidden + PRIVATE PROCEDURE NEW() + ENDPROCEDURE +ENDCLASS +TYPE RecordValue + DECLARE Value : INTEGER +ENDTYPE +DECLARE B : Box +DECLARE R : Required(1) +B <- NEW Other +B <- NEW INTEGER +B <- NEW RecordValue +B <- NEW Box(1) +R <- NEW Required +R <- NEW Required() +B <- NEW Hidden |