* snames.ads-tmpl (Name_Ivdep): New pragma-related name.
[official-gcc.git] / gcc / testsuite / gnat.dg / derived_type4.adb
blob22c41ecc64894e93f9de92818202071c818048a2
1 -- { dg-do compile }
3 procedure Derived_Type4 is
5 type Root (D : Positive) is record
6 S : String (1 .. D);
7 end record;
9 subtype Short is Positive range 1 .. 10;
10 type Derived (N : Short := 1) is new Root (D => N);
12 Obj : Derived;
14 begin
15 Obj := (N => 5, S => "Hello");
16 end;