diff options
Diffstat (limited to 'tests/i/integer-literal-contexts/program.cps')
| -rw-r--r-- | tests/i/integer-literal-contexts/program.cps | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/i/integer-literal-contexts/program.cps b/tests/i/integer-literal-contexts/program.cps new file mode 100644 index 0000000..3ebc7fb --- /dev/null +++ b/tests/i/integer-literal-contexts/program.cps @@ -0,0 +1,10 @@ +CONSTANT Minimum = -9223372036854775808 +CONSTANT Maximum = 9223372036854775807 +DECLARE Values : ARRAY[-9223372036854775808:-9223372036854775808] OF INTEGER +Values[Minimum] <- Maximum +CALL Show(Values) +OUTPUT Minimum, ":", Maximum +OUTPUT -0, ":", -1, ":", -(1 + 2) +PROCEDURE Show(BYREF Items : ARRAY[-9223372036854775808:-9223372036854775808] OF INTEGER) + OUTPUT Items[-9223372036854775808] +ENDPROCEDURE |