1--  { dg-do compile }
2--  { dg-options "-gnatc" }
3
4pragma Restrictions (No_Entry_Queue);
5package Restricted_Pkg is
6   type Iface is limited interface;
7   protected type PO is new Iface with
8      procedure Dummy;
9   end;
10end;
11