mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 16:03:48 +02:00
14 lines
243 B
ObjectPascal
14 lines
243 B
ObjectPascal
{ 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.
|
|
|