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