gen_interface.ads

来自「用于进行gcc测试」· ADS 代码 · 共 9 行

-- { dg-do compile }

with gen_interface_p;
package gen_interface is
   type T is interface;
   procedure P (Thing: T) is abstract;
   package NG is new gen_interface_p (T, P);
end;