mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
10 lines
142 B
ObjectPascal
10 lines
142 B
ObjectPascal
{$mode macpas}
|
|
|
|
program test;
|
|
var x: packed array [1..8] of boolean;
|
|
begin x[1]:= false; x[1]:= not x[1];
|
|
if (not x[1]) then
|
|
halt(1);
|
|
end.
|
|
|