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


1
2
3
4
5
6
7
8
9

with Discr11_Pkg; use Discr11_Pkg;

package Discr11 is
   type DT_2 is new DT_1 with record
     More : Integer;
   end record;

   function Create return DT_2;
end Discr11;