gcc/testsuite/gnat.dg/lto19.adb

   1 -- { dg-do run }
   2 -- { dg-options "-flto" { target lto } }
   3 -- { dg-excess-errors "does not match original declaration" }
   4
   5 with Lto19_Pkg1;
   6
   7 procedure Lto19 is
   8   R : Lto19_Pkg1.Rec := (I => 1, A => (others => 0));
   9 begin
  10   Lto19_Pkg1.Proc (R);
  11 end;