blob: 842b5e3fe60cb767a6cf16a5a71616af19655251 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-gnatc" }
package interface5 is
type Lim_Iface is limited interface;
protected type Prot_Typ is new Lim_Iface with
private
end Prot_Typ;
end interface5;