Require target lra in gcc.dg/pr108095.c
[official-gcc.git] / gcc / testsuite / gnat.dg / inline18_pkg1.adb
blobf266f099ccd40e409dc4d5c617ae9e5ca6f37059
1 package body Inline18_Pkg1 is
3 procedure Proc (R : in out Rec) is
4 begin
5 R.Comp := My_G2.Func (Inline18_Pkg2.Child.General.Val);
6 end;
8 end Inline18_Pkg1;