4.4BSD/usr/src/old/dbx/tests/pc/bool.p

program booltest (input, output);
var b : boolean;
begin
    b := true;
    b := false;
end.