Subversion Repositories openrisc

-- { dg-do run }

-- { dg-options "-gnatws" }

-- { dg-options "-gnatws -flto" { target lto } }

pragma Locking_Policy (Ceiling_Locking);

with Lto8_Pkg; use Lto8_Pkg;

procedure Lto8 is

   task Tsk is

      pragma Priority (10);

   end Tsk;

   task body Tsk is

   begin

      Sema2.Seize;

      Sema1.Seize;

   exception

      when Program_Error => null;

   end;

begin

   null;

end;