gcc/testsuite/gnat.dg/specs/constructor.ads


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

-- { dg-do compile }

package constructor is
   type R (Name_Length : Natural) is record
      Name     : Wide_String (1..Name_Length);
      Multiple : Boolean;
   end record;
   
   Null_Params : constant R :=
     (Name_Length => 0,
      Name        => "",
      Multiple    => False);
end;