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

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