aboutsummaryrefslogtreecommitdiff
path: root/testsuite/compilable/const_negation.elna
blob: 1dd45f4fcdae799860f46f83aab0a0eca54db444 (plain)
1
2
3
4
5
6
7
8
9
program()
var
  x: const Int := -5
  y: const Int := -x

begin
  assert(x = -5);
  assert(y = 5);
end.