gcc-4.9/gcc/testsuite/gnat.dg/specs/aggr4.ads


1
2
3
4
5
6
7
8
9

-- { dg-do compile }

with Aggr4_Pkg; use Aggr4_Pkg;

package Aggr4 is

   C : constant Rec3 := (Data => (D => One, Value => Zero));

end Aggr4;