PR ipa/83051
[official-gcc.git] / gcc / testsuite / gnat.dg / inline1_pkg.ads
blob32e710ba5d95d77c20ef4285cd7f70a2ed856548
1 package Inline1_Pkg is
3 function Valid_Real (Number : Float) return Boolean;
4 pragma Inline_Always (Valid_Real);
6 function Invalid_Real return Float;
7 pragma Inline_Always (Invalid_Real);
9 end Inline1_Pkg;