BSD 1 development

[unix-history] / tests / t19.p

program main(input,output);
var
       o, z: set of 1..1;
begin
       o := [1];
       z := [];
       if o < z then
               writeln('o < z');
       if o <= z then
               writeln('o <= z');
       if o = z then
               writeln('o = z');
       if o <> z then
               writeln('o <> z');
       if o >= z then
               writeln('o >= z');
       if o > z then
               writeln('o > z');
       if z < o then
               writeln('z < o');
       if z <= o then
               writeln('z <= o');
       if z = o then
               writeln('z = o');
       if z <> o then
               writeln('z <> o');
       if z >= o then
               writeln('z >= o');
       if z > o then
               writeln('z > o');
       if o < o then
               writeln('o < o');
       if o <= o then
               writeln('o <= o');
       if o = o then
               writeln('o = o');
       if o <> o then
               writeln('o <> o');
       if o >= o then
               writeln('o >= o');
       if o > o then
               writeln('o > o');
       if z < z then
               writeln('z < z');
       if z <= z then
               writeln('z <= z');
       if z = z then
               writeln('z = z');
       if z <> z then
               writeln('z <> z');
       if z >= z then
               writeln('z >= z');
       if z > z then
               writeln('z > z');
end.