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

begin
  f()
end.