freepascal.compiler/bugs/bug0031.pp

var
   a : array[boolean] of longint;

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