gcc/testsuite/gnat.dg/subp_inst_pkg.ads

   1 package Subp_Inst_Pkg is
   2    pragma Pure;
   3
   4    generic
   5       type T;
   6       type T_Access is access T;
   7    function Image (Val : T_Access) return String;
   8
   9    generic
  10       type T;
  11    function T_Image (Val : access T) return String;
  12
  13 end Subp_Inst_Pkg;