PR target/84336

[official-gcc.git] / gcc / testsuite / gnat.dg / aggr21_pkg.adb

package body Aggr21_Pkg is

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

end Aggr21_Pkg;