gcc/testsuite/gnat.dg/lto20.adb

   1 -- { dg-do run }
   2 -- { dg-options "-flto" { target lto } }
   3 -- { dg-excess-errors "does not match original declaration" }
   4
   5 with Lto20_Pkg;
   6
   7 procedure Lto20 is
   8 begin
   9   Lto20_Pkg.Proc (Lto20_Pkg.Null_Arr);
  10 end;