Subversion Repositories openrisc

-- { dg-do compile }

-- { dg-options "-O2" }

with Opt10_Pkg; use Opt10_Pkg;

procedure Opt10 is

   procedure Compare_Rep_Data (MA, MB : Rep_Message) is

   begin

      if MA.Data /= MB.Data then

         raise Program_Error;

      end if;

   end;

   procedure Check_Rep_For (Bit : Boolean) is

      MA, MB : Rep_Message;

   begin

      Safe_Assign (MA, Bit);

      Safe_Assign (MB, Bit);

      Compare_Rep_Data (MA, MB);

   end;

begin

   Check_Rep_For (Bit => False);

end;