blob: 29845ceebb2c9de72efe67ffee69818984ff196a (
plain)
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;
|