blob: de4c2a75797723dbef6b01d5e834d716a7fb47f4 [file] [log] [blame]
-- { dg-options "-gnatws" }
package body Lto8_Pkg is
protected body Protected_Queue_T is
entry Seize when True is begin null; end;
end Protected_Queue_T;
end Lto8_Pkg;