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

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