generic_dispatch_p.adb

来自「用于进行gcc测试」· ADB 代码 · 共 8 行

package body generic_dispatch_p is
   function Constructor (I : not null access Integer) return DT is
      R : DT; 
  begin
      return R;
   end Constructor;
end;