aboutsummaryrefslogtreecommitdiff
path: root/testsuite/fail_compilation/case_label_overflow.elna
blob: 787f043378ad53dd9b8ed20dddedd35f0bb436a8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
var
  x: Int8 := 100i8

program()
begin
  case x of
    100i8: assert(true)
  | 100i8 + 100i8: assert(false) (* @Error Case label must be a constant expression *)
  else
    assert(false)
  end
end.