gcc/testsuite/gnat.dg/varsize3_pkg3.ads


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

generic

   type T is private;

package Varsize3_Pkg3 is

   type Object is record
      E : T;
   end record;

   function True return Object;

end Varsize3_Pkg3;