gcc/testsuite/gnat.dg/aggr24_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

package Aggr24_Pkg is

   type Rec is record
      I1 : Integer;
      I2 : Integer;
      I3 : Integer;
      I4 : Integer;
      I5 : Integer;
      I6 : Integer;
      I7 : Integer;
      S : String (1 .. 5);
   end record;

   procedure Init (R : out Rec);

end Aggr24_Pkg;