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


1
2
3
4
5
6
7
8
9
10
11

package Aggr21_Pkg is

   type Rec is record
      A : Integer;
      S : String (1 .. 120);
      N : Natural;
   end record;

   procedure Init (R : out Rec);

end Aggr21_Pkg;