aboutsummaryrefslogtreecommitdiff
path: root/testsuite/runnable/case_multilabel.elna
blob: be647d4f25c2b75dde612d9d7d0ca854d78a4333 (plain)
1
2
3
4
5
6
7
8
9
10
11
var
  x: Int := 3

begin
  case x of
    1, 2, 3: assert(true)
  | 4, 5: assert(false)
  else
    assert(false)
  end
end.