testsuite/runnable/case_constant_label.elna


1
2
3
4
5
6
7
8
9
10
11
12
13

var
  base: const Int := 2
  limit: const Int := base
  x: Int := 2
  matched: Bool := false

begin
  case x of
    1: assert(false)
  | limit: matched := true
  end;
  assert(matched)
end.