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


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

-- { dg-do compile }

with Static_Initializer5_Pkg; use Static_Initializer5_Pkg;

package Static_Initializer5 is

   type Derived is new Rec with record
      Target : Boolean;
   end record;

   Null_Derived : constant Derived := (Null_Rec with Target => False);

end Static_Initializer5;