freepascal.compiler/tests/tbs/tb0176.pp

{ Old file: tbs0210.pp }
{ fillchar should accept boolean value also !!         OK 0.99.11 (PM) }

{ boolean args are accepted for fillchar in BP }

program test;

  var l : array[1..10] of boolean;

begin
   fillchar(l,sizeof(l),true);
end.