Subversion Repositories openrisc

-- { dg-do run }
 
with Wide_Boolean_Pkg; use Wide_Boolean_Pkg;
 
procedure Wide_Boolean is
 
   R : TREC;
   LB_TEST_BOOL : TBOOL;
 
begin
 
   R.B := FALSE;
   LB_TEST_BOOL := FALSE;
 
   Modify (R.H, R.B);
   if (R.B /= TRUE) then
     raise Program_Error;
   end if;
 
   Modify (R.H, LB_TEST_BOOL);
   R.B := LB_TEST_BOOL;
   if (R.B /= TRUE) then
     raise Program_Error;
   end if;
 
end;