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


1
2
3
4
5
6
7
8
9
10
11
12

package Taft_Type2_Pkg  is

   type T is private;

   function Open return T;

private

   type Buffer_T;
   type T is access Buffer_T;

end Taft_Type2_Pkg;