Optimize a < 0 ? -1 : 0 to (signed)a >> 31.
[official-gcc.git] / gcc / testsuite / gnat.dg / inline11_pkg.ads
bloba06bbaccda8db3d586f2dc43fb593f6caa46950e
1 package Inline11_Pkg is
3 procedure Trace (I : Integer);
4 pragma Inline (Trace);
6 end Inline11_Pkg;