gcc/testsuite/gnat.dg/lto8_pkg.adb

   1 -- { dg-options "-gnatws" }
   2
   3 package body Lto8_Pkg is
   4
   5    protected body Protected_Queue_T is
   6       entry Seize when True is begin null; end;
   7    end Protected_Queue_T;
   8
   9 end Lto8_Pkg;