fpcsrc/tests/tbs/tb0027.pp


1
2
3
4
5
6
7
8
9
10

{ Old file: tbs0031.pp }
{  tests array[boolean] of ....                        OK 0.9.8 }

var
   a : array[boolean] of longint;

begin
   a[true]:=1234;
   a[false]:=123;
end.