gcc/testsuite/gnat.dg/taft_type1_pkg1.ads

   1 package Taft_Type1_Pkg1 is
   2    procedure Check;
   3 private
   4    type TAMT1;
   5    type TAMT1_Access is access TAMT1;
   6
   7    type TAMT2;
   8    type TAMT2_Access is access TAMT2;
   9 end Taft_Type1_Pkg1;