aboutsummaryrefslogtreecommitdiff
path: root/testsuite/runnable/const_initialization.elna
blob: b388845edc6c0cf7968db2a4bebf682c35636e53 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
proc f()
var
  x: const Int := 5
begin
  assert(x = 5)
return

program()
begin
  f()
return 0u8

end.