regtests/operator.adb

   1 procedure Operator is
   2
   3    Var1 : constant Boolean := True;
   4    Var2 : constant Boolean := True;
   5
   6    Res1 : constant Boolean := Var1 and then
   7      Var2;
   8
   9    Res2 : Boolean := Var1 or else
  10      Var2;
  11
  12    Res3 : Boolean := Var1 or
  13      Var2;
  14
  15    Res4 : Boolean := Var1 and
  16      Var2;
  17
  18    Res5 : Boolean := Var1
  19      and then
  20      Var2;
  21
  22    Res6 : Boolean := Var1
  23      and then Var2;
  24
  25    Res6 : Boolean := Var1
  26      or else Var2;
  27
  28    --  year and then
  29
  30 begin
  31    null;
  32 end Operator;