summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/test_prio_p.adb
blob: 333ab9286e2617d0d64e13dd787eb1fd3a44b878 (plain)
1
2
3
4
5
6
7
-- { dg-options "-gnatws" }

package body test_prio_p is
   protected body Protected_Queue_T is
      entry Seize when True is begin null; end;
   end Protected_Queue_T;
end test_prio_p;