gcc/testsuite/gnat.dg/incomplete5.ads

   1 with Incomplete5_Pkg;
   2
   3 package Incomplete5 is
   4
   5    type Rec1 is private;
   6
   7    type Rec2 is private;
   8
   9    package My_G is new Incomplete5_Pkg (Rec1);
  10
  11    use My_G;
  12
  13    function Get (O: Base_Object) return Integer;
  14
  15 private
  16
  17    type Rec1 is record
  18       I : Integer;
  19    end record;
  20
  21    type Rec2 is record
  22       A : Access_Type;
  23    end record;
  24
  25 end Incomplete5;