aboutsummaryrefslogtreecommitdiff
path: root/testsuite/compilable/aliased_type_constant.elna
blob: 16a52c29d5e5c1f41336a19ff2b2aa6c18593b30 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
type
  Handle = Int

var
  limit: const Int := 1

proc check()
begin
  assert(limit = 1)
return

end.