gcc-4.9/gcc/testsuite/gnat.dg/aggr21_pkg.adb


1
2
3
4
5
6
7
8

package body Aggr21_Pkg is

   procedure Init (R : out Rec) is
   begin
      R := (A => 5, S => <>, N => 7);
   end;

end Aggr21_Pkg;