gcc/testsuite/gnat.dg/bip_prim_func2_pkg.adb

   1 with Ada.Containers.Indefinite_Ordered_Maps;
   2
   3 package body BIP_Prim_Func2_Pkg is
   4
   5    package Maps is new Ada.Containers.Indefinite_Ordered_Maps
   6      (Key_Type     => Integer,
   7       Element_Type => Some_Access);
   8
   9    Map : Maps.Map;
  10
  11    function Make (Key : Integer) return First'Class is
  12    begin
  13       return Map(Key).all;
  14    end Make;
  15
  16    function Make_Delegate return First'Class is
  17    begin
  18       return Make;
  19    end Make_Delegate;
  20
  21 begin
  22    Map.Insert (2,Thing_Access);
  23 end BIP_Prim_Func2_Pkg;