gcc/testsuite/gnat.dg/taft_type4_pkg.ads

   1 package Taft_Type4_Pkg is
   2
   3   type T is private;
   4
   5   procedure Proc (L : in out T);
   6   pragma Inline (Proc);
   7
   8 private
   9
  10   type Obj_T;
  11   type T is access Obj_T;
  12
  13 end Taft_Type4_Pkg;