gcc/testsuite/gnat.dg/opt13_pkg.ads

   1 package Opt13_Pkg is
   2
   3     N : Natural := 0;
   4
   5     type My_Type is private;
   6
   7     procedure Allocate (T : out My_Type);
   8
   9 private
  10
  11     type Data;
  12
  13     type My_Type is access Data;
  14
  15 end Opt13_Pkg;