* snames.ads-tmpl (Name_Ivdep): New pragma-related name.
[official-gcc.git] / gcc / testsuite / gnat.dg / prot2.adb
blobcc6fcab8fe6ef6ed19e8f476f9ef0723996b460c
1 -- { dg-do compile }
3 with Prot2_Pkg1;
4 with Prot2_Pkg2;
6 package body Prot2 is
8 type A is array (1 .. Prot2_Pkg1.Num) of Integer;
10 type E is (One, Two);
12 type Rec (D : E := One) is record
13 case D is
14 when One => L : A;
15 when Two => null;
16 end case;
17 end record;
19 package My_Pkg2 is new Prot2_Pkg2 (Rec);
21 procedure Dummy is begin null; end;
23 end Prot2;