summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/discr11.ads
blob: b3911999d399d139f05c3e29a5da42df9986e3a7 (plain)
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;