tests/tbs/tb0073.pp


1
2
3
4
5
6
7
8
9
10
11

{ Old file: tbs0080.pp }
{  Shows Missing High() (internal) function.             OK 0.99.6 (MVC) }

program bug0080;

type

 tHugeArray = array [ 1 .. High(Word) ] of byte;

begin
end.