ubuntu-buildroot/output/build/host-gcc-initial-11.4.0/gcc/testsuite/gnat.dg/inline8_pkg2.adb

9 lines
130 B
Ada

package body Inline8_Pkg2 is
function Calc (A : Integer) return Integer is
begin
return D - A;
end;
end Inline8_Pkg2;