gcc/testsuite/gnat.dg/lto19_pkg1.ads

   1 with Lto19_Pkg2;
   2
   3 package Lto19_Pkg1 is
   4
   5   type Arr is array (1 .. Lto19_Pkg2.UB) of Integer;
   6
   7   type Rec is record
   8     A : Arr;
   9     I : Integer;
  10   end record;
  11
  12   procedure Proc (R : Rec);
  13
  14 end Lto19_Pkg1;