fpc/tests/tbs/tb0027.pp
2000-11-30 22:38:14 +00:00

12 lines
179 B
ObjectPascal

{ 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.