regtests/thenlayout.adb

   1 procedure ThenLayout is
   2    Toto : Natural := 9;
   3 begin
   4    if Toto = 8 then
   5       null;
   6    end if;
   7
   8    if Toto = 8
   9      or else Toto = 12
  10    then
  11       null;
  12    end if;
  13
  14    if Toto = 2
  15      and then Toto = 12 then
  16       null;
  17    end if;
  18
  19    if Gh = 12 then
  20       null;
  21    elsif Gh = 9 then
  22       null;
  23    end if;
  24
  25    if Gh = 12
  26      and then Gh = "then"
  27    then
  28       null;
  29    end if;
  30
  31    if Gh = 12
  32      and then Gh = "then" then
  33       null;
  34    end if;
  35 end ThenLayout;