PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / lto19.adb
blob7f083d3576f7b0ec75e90325e8061b3b0bc97220
1 -- { dg-do run }
2 -- { dg-options "-flto" { target lto } }
3 -- { dg-excess-errors "does not match original declaration" }
5 with Lto19_Pkg1;
7 procedure Lto19 is
8 R : Lto19_Pkg1.Rec := (I => 1, A => (others => 0));
9 begin
10 Lto19_Pkg1.Proc (R);
11 end;