gcc-4.9/gcc/testsuite/gnat.dg/taft_type1_pkg1.ads


1
2
3
4
5
6
7
8
9

package Taft_Type1_Pkg1 is
   procedure Check;
private
   type TAMT1;
   type TAMT1_Access is access TAMT1;

   type TAMT2;
   type TAMT2_Access is access TAMT2;
end Taft_Type1_Pkg1;