gcc/testsuite/gnat.dg/aggr24_pkg.ads

   1 package Aggr24_Pkg is
   2
   3    type Rec is record
   4       I1 : Integer;
   5       I2 : Integer;
   6       I3 : Integer;
   7       I4 : Integer;
   8       I5 : Integer;
   9       I6 : Integer;
  10       I7 : Integer;
  11       S : String (1 .. 5);
  12    end record;
  13
  14    procedure Init (R : out Rec);
  15
  16 end Aggr24_Pkg;