testsuite/runnable/case_constant_label.elna


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

program()
const
  BASE = 2
  LIMIT = BASE
var
  x: Int := 2
  matched: Bool := false

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