TP3/shell/tests/fixtures/t85_setops.pas

PROGRAM T85;
TYPE
   Attr = (A, B, C, D, E) ;
   AttrSet = SET OF Attr ;
   Rec = RECORD
      Status : AttrSet ;
   END ;
VAR
   M : ARRAY [1..2, 1..2] OF Rec ;
   I, J : Integer ;
BEGIN
   I := 1 ; J := 1 ;
   M [I,J].Status := [B,D] ;
   IF M [I,J].Status * [C,D] = [D] THEN WRITELN ('inter') ELSE WRITELN ('bad1') ;
   IF M [I,J].Status = [B,D] THEN WRITELN ('eq') ELSE WRITELN ('bad2') ;
   IF [B,D] * M [I,J].Status = [B,D] THEN WRITELN ('leftlit') ELSE WRITELN ('bad3') ;
   IF M [I,J].Status >= [B] THEN WRITELN ('sup') ELSE WRITELN ('bad4') ;
   IF [B] <= M [I,J].Status THEN WRITELN ('sub') ELSE WRITELN ('bad5') ;
   M [I,J].Status := M [I,J].Status + [C] ;
   IF M [I,J].Status = [B,C,D] THEN WRITELN ('union') ELSE WRITELN ('bad6') ;
   M [I,J].Status := M [I,J].Status - [B] ;
   IF M [I,J].Status = [C,D] THEN WRITELN ('diff') ELSE WRITELN ('bad7')
END.