boolean_subtype.adb

来自「用于进行gcc测试」· ADB 代码 · 共 43 行

-- { dg-do compile }
-- { dg-options "-O2" }

procedure boolean_subtype is

   subtype Component_T is Boolean;

   function Condition return Boolean is
   begin
      return True;
   end;

   V : Integer := 0;

   function Component_Value return Integer is
   begin
      V := V + 1;
      return V;
   end;

   Most_Significant  : Component_T := False;
   Least_Significant : Component_T := True;

begin

   if Condition then
      Most_Significant := True;
   end if;

   if Condition then
      Least_Significant := Component_T'Val (Component_Value);
   end if;

   if Least_Significant < Most_Significant then
      Least_Significant := Most_Significant;
   end if;

   if Least_Significant /= True then
      raise Program_Error;
   end if;

end;