Fix broken MinGW build of gcc.c
[official-gcc.git] / gcc / testsuite / gnat.dg / inline7_pkg2.adb
blobb3f18705275d27c196544b55780bad0bb4223924
1 package body Inline7_Pkg2 is
3 function Calc (A : Integer) return Integer is
4 begin
5 return D - A;
6 end;
8 end Inline7_Pkg2;