ack/tests/plat/pascalsets_p.p

#
(*$U+ -- enables underscores in identifiers *)

program pascalsets;

type
    charset = set of char;

var
    s : charset;
    i : integer;

procedure finished;
    extern;

procedure fail(line: integer);
    extern;

#define ASSERT(cond) \
    if (not (cond)) then fail(__LINE__)

begin
    s := [];
    for i := 0 to 255 do
        s := s + [chr(i)];

    finished
end.